From 501fbdba810b9fffb0c97a686224994a688c079e Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 30 Apr 2009 20:55:06 +0000
Subject: [PATCH] fix compile warnings

---
 docs/upgrades/upgrade_7.7.4-7.7.5.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/docs/upgrades/upgrade_7.7.4-7.7.5.pl b/docs/upgrades/upgrade_7.7.4-7.7.5.pl
index 8944c11d3..a205efa86 100644
--- a/docs/upgrades/upgrade_7.7.4-7.7.5.pl
+++ b/docs/upgrades/upgrade_7.7.4-7.7.5.pl
@@ -235,7 +235,7 @@ sub addTemplatePacking {
     $session->db->write("ALTER TABLE assetData ADD usePackedHeadTags INT(1)");
 
     print "\n\t\tPre-packing all head tags, this may take a while..." unless $quiet;
-    my $sth = $session->db->read( "SELECT assetId FROM asset" );
+    $sth = $session->db->read( "SELECT assetId FROM asset" );
     while ( my ($assetId) = $sth->array ) {
         my $asset       = WebGUI::Asset->newByDynamicClass( $session, $assetId );
         next unless $asset;
@@ -250,7 +250,7 @@ sub addTemplatePacking {
     $session->db->write("ALTER TABLE snippet ADD usePacked INT(1)");
 
     print "\n\t\tPre-packing all snippets, this may take a while..." unless $quiet;
-    my $sth = $session->db->read( "SELECT DISTINCT(assetId) FROM snippet" );
+    $sth = $session->db->read( "SELECT DISTINCT(assetId) FROM snippet" );
     while ( my ($assetId) = $sth->array ) {
         my $asset       = WebGUI::Asset->newByDynamicClass( $session, $assetId );
         next unless $asset;