[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.112,1.113

[Rob H. <for...@us...>]

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,