Add filename and line number to string eval #10

miyagawa · Mar 31, 2013 · b020a32 · b020a32
1 parent cddb822
commit b020a32
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/lib/Module/CPANfile.pm b/lib/Module/CPANfile.pm
@@ -142,6 +142,7 @@ no warnings;
 my \$_result;
 BEGIN { import Module::CPANfile::Environment \\\$_result };
 
+# line 1 "$file"
 $code;
 
 \$_result;
@@ -336,4 +337,4 @@ Tatsuhiko Miyagawa
 
 L<cpanfile>, L<CPAN::Meta>, L<CPAN::Meta::Spec>
 
-=cut
+=cut
diff --git a/t/parse.t b/t/parse.t
@@ -15,6 +15,15 @@ use t::Utils;
     setlocale(LC_ALL, $old_locale);
 }
 
+{
+    my $r = write_cpanfile(<<FILE);
+foo();
+FILE
+    eval { Module::CPANfile->load };
+    like $@, qr/cpanfile line 1/;
+}
+
+
 {
     my $r = write_cpanfile(<<FILE);
 configure_requires 'ExtUtils::MakeMaker', 5.5;