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
|
