use older perl

dwimperl · Nov 29, 2013 · 0e19450 · 0e19450
1 parent edc9eb9
commit 0e19450
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/bin/generate.pl b/bin/generate.pl
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
-use 5.012;
-use autodie;
+#use 5.012;
+#use autodie;
 
 use Template;
 use DateTime;
@@ -21,7 +21,7 @@
 
 
 foreach my $p (@pages) {
-	open my $fh, '<', "pages/$p";
+	open my $fh, '<', "pages/$p" or die $!;
 	my %params = ( content => '' );
 	while (my $row = <$fh>) {
 		#chomp $row;