X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fimport_into.t;fp=t%2Fimport_into.t;h=e9ebb9c1efb4b06238f6457ee013400a9c746881;hb=8afc1658ff5a85afc7418d2779a4b4113feb4466;hp=4fcf9cad7028f1714d554ee91c1248235daa4d85;hpb=1d69d8bc0ed32741cc41a480f35e7e2675b424ac;p=p5sagit%2FImport-Into.git

diff --git a/t/import_into.t b/t/import_into.t
index 4fcf9ca..e9ebb9c 100644
--- a/t/import_into.t
+++ b/t/import_into.t
@@ -43,25 +43,26 @@ BEGIN {
   $INC{"CheckFile.pm"} = 1;
 }
 
-BEGIN {
+eval q{
 
   package TestPackage;
 
   no warnings;
 
-#line 1
+#line 1 "import_into_inline.pl"
   use MultiExporter;
 
   sub test {
     thing . undef
   }
-}
+  1;
+} or die $@;
 
 my @w;
 
 is(do {
   local $SIG{__WARN__} = sub { push @w, @_; };
-  TestPackage::test;
+  TestPackage::test();
 }, 'thing', 'returned thing ok');
 
 is(scalar @w, 1, 'Only one entry in @w');
@@ -69,7 +70,7 @@ is(scalar @w, 1, 'Only one entry in @w');
 like($w[0], qr/uninitialized/, 'Correct warning');
 
 is $checkcaller[0], 'TestPackage', 'import by level has correct package';
-is $checkcaller[1], __FILE__, 'import by level has correct file';
+is $checkcaller[1], 'import_into_inline.pl', 'import by level has correct file';
 is $checkcaller[2], 1, 'import by level has correct line';
 
 CheckFile->import::into({