projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4d44d44
)
Replaced 'unlink' with 'unlink_all' in t/op/magic.t
author
Brad Gilbert
<b2gills@gmail.com>
Tue, 7 Dec 2010 23:12:31 +0000
(17:12 -0600)
committer
Father Chrysostomos
<sprout@cpan.org>
Wed, 8 Dec 2010 19:16:54 +0000
(11:16 -0800)
t/op/magic.t
patch
|
blob
|
history
diff --git
a/t/op/magic.t
b/t/op/magic.t
index
f5f6205
..
4c7f70c
100644
(file)
--- a/
t/op/magic.t
+++ b/
t/op/magic.t
@@
-42,7
+42,7
@@
if ($Is_MSWin32) { like `set FOO`, qr/^(?:FOO=)?hi there$/; }
elsif ($Is_VMS) { is `write sys\$output f\$trnlnm("FOO")`, "hi there\n"; }
else { is `echo \$FOO`, "hi there\n"; }
-unlink 'ajslkdfpqjsjfk';
+unlink
_all
'ajslkdfpqjsjfk';
$! = 0;
open(FOO,'ajslkdfpqjsjfk');
isnt($!, 0);
@@
-264,6
+264,9
@@
EOF
is $_, $s1;
}
ok unlink($script) or diag $!;
+ # CHECK
+ # Could this be replaced with:
+ # unlink_all($script);
}
# $], $^O, $^T