1
0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-07-26 02:30:35 +02:00

Don't expect `ARGV_0=$0 exec ...' to work.

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.
This commit is contained in:
Jim Meyering
2002-07-19 21:35:48 +00:00
parent 29c8739e95
commit b6389794e2
+7 -4
View File
@@ -13,7 +13,10 @@ case "$PERL" in
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;
@@ -71,11 +74,11 @@ foreach my $dir (@dir_list)
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;
}