diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2006-01-08 23:47:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-09 10:16:23 +0000 |
| commit | 9f2e35140733c7b8f4ab179f11bf740ca3d2130e (patch) | |
| tree | bc2c8c6e9c28ce6b8ec5911f5ae1887ee172af1b /t | |
| parent | 1fcb18de6aa4bd3b565067cad38df0ca202f89d0 (diff) | |
| download | perl-9f2e35140733c7b8f4ab179f11bf740ca3d2130e.tar.gz | |
RE: Failing tests on VMS blead@26652
From: "Paul Marquess" <Paul.Marquess@ntlworld.com>
Message-ID: <00cd01c614ad$e815d340$6401a8c0@myopwv.com>
p4raw-id: //depot/perl@26751
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/ZlibTestUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/ZlibTestUtils.pm b/t/lib/ZlibTestUtils.pm index f1341106a7..7d044beead 100644 --- a/t/lib/ZlibTestUtils.pm +++ b/t/lib/ZlibTestUtils.pm @@ -36,7 +36,7 @@ sub like_eval unless defined $_; } chmod 0777, @_; - unlink @_ ; + for (@_) { 1 while unlink $_ } ; bless [ @_ ], $self ; } @@ -44,7 +44,7 @@ sub like_eval { my $self = shift ; chmod 0777, @{ $self } ; - unlink @{ $self } ; + for (@$self) { 1 while unlink $_ } ; } } |