Move podlators from lib to ext.

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / Usage.t

diff --git a/lib/Pod/t/Usage.t b/lib/Pod/t/Usage.t
index f5c7207..2cabb55 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 {
@@ -47,7 +47,8 @@ SKIP: {
     is( $$fake_out, $vbl_0, '-pathlist parameter' );
 }
 
-{ # Test exit status from pod2usage()
+SKIP: { # Test exit status from pod2usage()
+    skip "Exit status broken on Mac OS", 1 if $^O eq 'MacOS';
     my $exit = ($^O eq 'VMS' ? 2 : 42);
     my $dev_null = File::Spec->devnull;
     my $args = join ", ", (