Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv10614/bin
Modified Files:
sandweb.cgi
Log Message:
added -w to perl invokation, cleaned up potential problems that
were indicated
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.112
retrieving revision 1.113
diff -U2 -r1.112 -r1.113
--- sandweb.cgi 2002/01/18 07:49:31 1.112
+++ sandweb.cgi 2002/01/18 19:25:08 1.113
@@ -1,3 +1,3 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
# Sandweb CGI
@@ -337,8 +337,8 @@
);
- my $username = $auth->get_userinfo('username');
+ $username = $auth->get_userinfo('username');
my @vcs_commands = $repository->get_vcs_commands();
my @file_commands = $file->get_file_commands();
- my $repo_type = $repository->get_repo_type();
+ $repo_type = $repository->get_repo_type();
my $path = $args{'path'} || '';
@@ -534,5 +534,5 @@
$log->debug("closing $users_dir/$username/$location/$filename");
- my $content = $ui->get_menu(
+ $content = $ui->get_menu(
MENU => 'edit_file',
PROGNAME => $progname,
|