From: Ben Faga <faga@cshl.edu>
Date: Wed, 8 Jun 2005 15:32:51 +0000 (+0000)
Subject: Removed the @_ from the import statement, since @_ contains the path(s) to the module... 
X-Git-Tag: v0.11008~548
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=617f79f69fee74fcfab0ce899950448d01f4cab5;p=dbsrgits%2FSQL-Translator.git

Removed the @_ from the import statement, since @_ contains the path(s) to the module and not subs to import.
---

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index 2227908..481d46b 100644
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -1,7 +1,7 @@
 package SQL::Translator;
 
 # ----------------------------------------------------------------------
-# $Id: Translator.pm,v 1.66 2005-05-18 22:34:10 grommit Exp $
+# $Id: Translator.pm,v 1.67 2005-06-08 15:32:51 mwz444 Exp $
 # ----------------------------------------------------------------------
 # Copyright (C) 2002-4 The SQLFairy Authors
 #
@@ -27,7 +27,7 @@ use base 'Class::Base';
 require 5.004;
 
 $VERSION  = '0.07';
-$REVISION = sprintf "%d.%02d", q$Revision: 1.66 $ =~ /(\d+)\.(\d+)/;
+$REVISION = sprintf "%d.%02d", q$Revision: 1.67 $ =~ /(\d+)\.(\d+)/;
 $DEBUG    = 0 unless defined $DEBUG;
 $ERROR    = "";
 
@@ -735,7 +735,7 @@ sub load {
 
         eval { require $file };
         next if $@ =~ /Can't locate $file in \@INC/; 
-        eval { $file->import(@_) } unless $@;
+        eval { $module->import() } unless $@;
         return __PACKAGE__->error("Error loading $name as $module : $@")
         if $@ && $@ !~ /"SQL::Translator::Producer" is not exported/;