[vhffs-dev] [1017] Fixed compilation

[subversion@xxxxxxxxxxxxx]

Revision: 1017
Author:   gradator
Date:     2007-10-22 21:33:26 +0000 (Mon, 22 Oct 2007)

Log Message:
-----------
Fixed compilation

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Robots/Mailing.pm
    trunk/vhffs-api/src/Vhffs/Robots.pm


Modified: trunk/vhffs-api/src/Vhffs/Robots/Mailing.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots/Mailing.pm	2007-10-22 21:07:59 UTC (rev 1016)
+++ trunk/vhffs-api/src/Vhffs/Robots/Mailing.pm	2007-10-22 21:33:26 UTC (rev 1017)
@@ -42,7 +42,7 @@
 
 	my $query = "SELECT id_mailing , subject , message FROM  vhffs_mailings WHERE state='".Vhffs::Constants::WAITING_FOR_CREATION."'";
 
-	$request = $main->{'db'}->prepare( $query ) or return -2;
+	my $request = $main->{'db'}->prepare( $query ) or return -2;
 	return undef if ( $request->execute() <= 0 );
 
 	return( $request->fetchall_hashref('id_mailing') );

Modified: trunk/vhffs-api/src/Vhffs/Robots.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Robots.pm	2007-10-22 21:07:59 UTC (rev 1016)
+++ trunk/vhffs-api/src/Vhffs/Robots.pm	2007-10-22 21:33:26 UTC (rev 1017)
@@ -36,8 +36,8 @@
 use utf8;
 
 require Exporter;
-@ISA    = qw(Exporter);
-@EXPORT = qw(vhffs_log lock unlock);
+my @ISA    = qw(Exporter);
+my @EXPORT = qw(vhffs_log lock unlock);
 
 use Vhffs::Functions;
 use Vhffs::Main;