fix error reporting for the transform code
authorTony Cook <tony@develop-help.com>
Tue, 28 Apr 2009 00:41:57 +0000 (00:41 +0000)
committertony <tony@45cb6cf1-00bc-42d2-bb5a-07f51df49f94>
Tue, 28 Apr 2009 00:41:57 +0000 (00:41 +0000)
site/cgi-bin/modules/BSE/ProductImportXLS.pm

index ddfe2c1..9b6c0fa 100644 (file)
@@ -33,11 +33,8 @@ sub new {
     (my $out = $xform) =~ s/^xform_//;
     $map{$out}
       or die "Xform for $out but no mapping\n";
-    my $code = 'sub { local ($_) = @_; '.$ids{$xform}.'; return $_ }';
-    my $sub;
-    eval {
-      $sub = eval $code;
-    };
+    my $code = "sub { local (\$_) = \@_; \n".$ids{$xform}."\n; return \$_ }";
+    my $sub = eval $code;
     $sub
       or die "Compilation error for $xform code: $@\n";
     $xform{$out} = $sub;