[Sandweb-commit] CVS: sandweb/lib/SandWeb Config.pm,1.35,1.36

[Nick J. <nje...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory sc8-pr-cvs1:/tmp/cvs-serv19805/lib/SandWeb

Modified Files:
	Config.pm 
Log Message:
Apparently Perl 5.8 doesn't like overly complex hash ref assignments. At any
rate, the new assignment gives the same results, less characters. :)


Index: Config.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Config.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -U2 -r1.35 -r1.36
--- Config.pm	14 Jan 2003 09:49:47 -0000	1.35
+++ Config.pm	23 Apr 2003 22:48:23 -0000	1.36
@@ -350,6 +350,6 @@
 
 	my %data = ();
-	$data{'personal'} = ( %$self->{'personal'} );
-	$data{'repo'} = ( %$self->{'repo'} );
+	$data{'personal'} = $self->{'personal'};
+	$data{'repo'} = $self->{'repo'};
 
 	open(F, ">$config_dir/$config_file") or