Added a failing test for a bareword parsing regression created in 984f9f66

[p5sagit/p5-mst-13.2.git] / t / lib / compmod.pl

diff --git a/t/lib/compmod.pl b/t/lib/compmod.pl
index 68a9665..fa032f1 100644 (file)
--- a/t/lib/compmod.pl
+++ b/t/lib/compmod.pl
@@ -1,8 +1,8 @@
 #!./perl
 
 BEGIN {
-    chdir '..' if -d '../pod' && -d '../t';
-    @INC = 'lib';
+    chdir 't';
+    @INC = '../lib';
 }
 
 my $module = shift;
@@ -11,7 +11,8 @@ my $module = shift;
 eval "use $module ();";
 if( $@ ) {
     print "not ";
-    warn "require failed with '$@'\n";
+    $@ =~ s/\n/\n# /g;
+    warn "# require failed with '$@'\n";
 }
 print "ok - $module\n";