common/tools/populateziptemplate.pl
changeset 112 a8aa5d600806
parent 111 28463bb10fde
child 113 5b27412eeaf0
--- a/common/tools/populateziptemplate.pl	Thu May 07 14:49:42 2009 +0100
+++ b/common/tools/populateziptemplate.pl	Mon May 11 13:48:11 2009 +0100
@@ -1,6 +1,8 @@
 use strict;
 use warnings;
 
+use FindBin;
+use lib "$FindBin::Bin/lib";
 use Text::CSV;
 require XML::Simple;
 
@@ -22,7 +24,7 @@
 	next unless $line;
 	unless ($csv->parse($line))
 	{
-		my $err = $csv->error_input;
+		my $err = $csv->error_input();
 		die "Failed to parse line '$line': $err";
 	}