It doesn't work with /bin/sh of Solaris5.6.
Use an explicit `export ARGV_0' instead.
[comparing actual and expected output]: Don't match the entire line,
but rather just the `rm: cannot remove `$dir/$f':' part.
exit 77
;;
esac
-ARGV_0=$0 exec $PERL -w -- - << \EOP
+ARGV_0=$0
+export ARGV_0
+
+exec $PERL -w -- - << \EOP
require 5.003;
use strict;
or die "$ME: unexpected exit status from `$cmd';\n"
. " got $status, expected 1\n";
- my $exp = "rm: cannot remove `$dir/$f': Operation not permitted\n";
- $line eq $exp
+ my $exp = "rm: cannot remove `$dir/$f':";
+ $line =~ /^$exp/
or die "$ME: unexpected dignostic from `$cmd';\n"
. " got $line"
- . " expected $exp";
+ . " expected $exp ...\n";
last;
}