stas 2002/08/06 01:40:54 Modified: bin site_build Log: use strict Revision Changes Path 1.2 +3 -1 modperl-docs/bin/site_build Index: site_build =================================================================== RCS file: /home/cvs/modperl-docs/bin/site_build,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- site_build 6 Aug 2002 08:30:46 -0000 1.1 +++ site_build 6 Aug 2002 08:40:54 -0000 1.2 @@ -1,5 +1,7 @@ #!/usr/bin/perl -w +use strict; + my $src = "/home/perlwww/apache.org/modperl-docs"; my $rel = "$src/dst_html"; my $dst = "/www/perl.apache.org"; @@ -13,7 +15,7 @@ chdir $src; # Do different things depending on our name -($name) = $0 =~ m|([^/]+)$|; +my($name) = $0 =~ m|([^/]+)$|; update($name);
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
