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:
+7
-4
@@ -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;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user