r609 - packages/libclass-default-perl/branches/upstream/current/lib/Class

[Allard Hoeve]

Author: hoeve-guest
Date: 2005-01-10 20:26:06 +0100 (Mon, 10 Jan 2005)
New Revision: 609

Modified:
   packages/libclass-default-perl/branches/upstream/current/lib/Class/Default.pm
Log:
Current is now correct

Modified: packages/libclass-default-perl/branches/upstream/current/lib/Class/Default.pm
===================================================================
--- packages/libclass-default-perl/branches/upstream/current/lib/Class/Default.pm	2005-01-10 19:24:28 UTC (rev 608)
+++ packages/libclass-default-perl/branches/upstream/current/lib/Class/Default.pm	2005-01-10 19:26:06 UTC (rev 609)
@@ -13,7 +13,7 @@
 use vars qw{$VERSION %DEFAULT};
 BEGIN { 
 	$VERSION = '1.1';
-
+	
 	# Create the default object storage.
 	%DEFAULT = ();
 }
@@ -34,7 +34,7 @@
 # the cache, or create it new.
 sub _get_default {
 	my $class = shift; 
-	$DEFAULT{$class}
+	$DEFAULT{$class} 
 		|| ($DEFAULT{$class} = $class->_create_default_object)
 		|| Carp::croak "Error while creating default object";
 }