[Ipcop-svn] SF.net SVN: ipcop:[2605] ipcop/trunk/html/cgi-bin

[<dot...@us...>]

Revision: 2605
          http://ipcop.svn.sourceforge.net/ipcop/?rev=2605&view=rev
Author:   dotzball
Date:     2009-03-20 21:16:19 +0000 (Fri, 20 Mar 2009)

Log Message:
-----------
Disable Perl warnings for only once used variables.

Modified Paths:
--------------
    ipcop/trunk/html/cgi-bin/addresses.cgi
    ipcop/trunk/html/cgi-bin/addressgrps.cgi
    ipcop/trunk/html/cgi-bin/servicegrps.cgi
    ipcop/trunk/html/cgi-bin/services.cgi

Modified: ipcop/trunk/html/cgi-bin/addresses.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/addresses.cgi	2009-03-20 13:10:12 UTC (rev 2604)
+++ ipcop/trunk/html/cgi-bin/addresses.cgi	2009-03-20 21:16:19 UTC (rev 2605)
@@ -40,6 +40,7 @@
 
 # enable only the following on debugging purpose
 use warnings;
+no warnings 'once';
 use CGI::Carp 'fatalsToBrowser';
 
 require '/usr/lib/ipcop/general-functions.pl';
@@ -49,9 +50,6 @@
 
 &Header::showhttpheaders();
 
-my @dummy = (${Header::colourred}, ${Header::colouryellow});
-undef @dummy;
-
 my %cgiparams    = ();
 my $errormessage = '';
 my $error        = '';

Modified: ipcop/trunk/html/cgi-bin/addressgrps.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/addressgrps.cgi	2009-03-20 13:10:12 UTC (rev 2604)
+++ ipcop/trunk/html/cgi-bin/addressgrps.cgi	2009-03-20 21:16:19 UTC (rev 2605)
@@ -40,6 +40,7 @@
 
 # enable only the following on debugging purpose
 use warnings;
+no warnings 'once';
 use CGI::Carp 'fatalsToBrowser';
 
 require '/usr/lib/ipcop/general-functions.pl';
@@ -49,9 +50,6 @@
 
 &Header::showhttpheaders();
 
-my @dummy = (${Header::table2colour}, ${Header::colourred}, ${Header::table1colour}, ${Header::colouryellow});
-undef @dummy;
-
 my %cgiparams    = ();
 my $errormessage = '';
 my $error        = '';

Modified: ipcop/trunk/html/cgi-bin/servicegrps.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/servicegrps.cgi	2009-03-20 13:10:12 UTC (rev 2604)
+++ ipcop/trunk/html/cgi-bin/servicegrps.cgi	2009-03-20 21:16:19 UTC (rev 2605)
@@ -40,6 +40,7 @@
 
 # enable only the following on debugging purpose
 use warnings;
+no warnings 'once';
 use CGI::Carp 'fatalsToBrowser';
 
 require '/usr/lib/ipcop/general-functions.pl';
@@ -49,9 +50,6 @@
 
 &Header::showhttpheaders();
 
-my @dummy = (${Header::table2colour}, ${Header::colourred}, ${Header::table1colour}, ${Header::colouryellow});
-undef @dummy;
-
 my %cgiparams    = ();
 my $errormessage = '';
 my $error        = '';

Modified: ipcop/trunk/html/cgi-bin/services.cgi
===================================================================
--- ipcop/trunk/html/cgi-bin/services.cgi	2009-03-20 13:10:12 UTC (rev 2604)
+++ ipcop/trunk/html/cgi-bin/services.cgi	2009-03-20 21:16:19 UTC (rev 2605)
@@ -40,6 +40,7 @@
 
 # enable only the following on debugging purpose
 use warnings;
+no warnings 'once';
 use CGI::Carp 'fatalsToBrowser';
 
 require '/usr/lib/ipcop/general-functions.pl';
@@ -49,9 +50,6 @@
 
 &Header::showhttpheaders();
 
-my @dummy = (${Header::colouryellow}, ${Header::colourred});
-undef @dummy;
-
 my %cgiparams    = ();
 my $errormessage = '';
 my $error        = '';


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.