r8967 - /scripts/qa/qareport.cgi

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov  7 15:07:27 2007
New Revision: 8967

URL: http://svn.debian.org/wsvn/?sc=1&rev=8967
Log:
Define $ims globally

Modified:
    scripts/qa/qareport.cgi

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=8967&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Wed Nov  7 15:07:27 2007
@@ -42,6 +42,7 @@
     Date::Parse::str2time($script_date),
 );
 my $last_modified = @modified[-1];
+my $ims;
 my @pkglist = get_pkglist();
 
 my( @for_upload, @for_upgrade, @waiting, @wip, @with_bugs );
@@ -112,7 +113,7 @@
     my $htmlp = $cgi->Accept("text/html");
     my $xhtmlp = $cgi->Accept("application/xhtml+xml");
 
-    my $ims = $cgi->http('If-Modified-Since');
+    $ims = $cgi->http('If-Modified-Since');
     $ims = Date::Parse::str2time($ims) if $ims;
 
     if( $ims and $ims >= $last_modified )