This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
103a9d1
)
fix quoting in t/io/inplace.t
author
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 22 Jul 1998 08:04:37 +0000
(08:04 +0000)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Wed, 22 Jul 1998 08:04:37 +0000
(08:04 +0000)
p4raw-id: //depot/perl@1636
t/io/inplace.t
patch
|
blob
|
blame
|
history
diff --git
a/t/io/inplace.t
b/t/io/inplace.t
index
bef876e
..
ff410a7
100755
(executable)
--- a/
t/io/inplace.t
+++ b/
t/io/inplace.t
@@
-33,4
+33,4
@@
continue {
if (`$CAT .a .b .c` eq "bar\nbar\nbar\n") {print "ok 1\n";} else {print "not ok 1\n";}
if (`$CAT .a$^I .b$^I .c$^I` eq "foo\nfoo\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
-unlink '.a', '.b', '.c',
'.a$^I', '.b$^I', '.c$^I'
;
+unlink '.a', '.b', '.c',
".a$^I", ".b$^I", ".c$^I"
;