One quick fix to the test for differences in error output.

[perl5.git] / lib / Pod / t / Usage.t

diff --git a/lib/Pod/t/Usage.t b/lib/Pod/t/Usage.t
index d970d91..343a0a7 100644 (file)
--- a/lib/Pod/t/Usage.t
+++ b/lib/Pod/t/Usage.t
@@ -36,7 +36,7 @@ SKIP: {
         pod2usage({ -verbose => 0, -exit => 'noexit', 
                     -output => \*FAKEOUT, -input => $file });
     };
-    like( $@, qr/^Can't open $file for reading:/, 
+    like( $@, qr/^Can't open $file:/, 
           'File not found without -pathlist' );
 
     eval {