This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
metaconfig.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
0b31354
)
contains.U: echo should go to >&4
author
Karl Williamson
<khw@cpan.org>
Tue, 18 Aug 2020 18:30:50 +0000
(12:30 -0600)
committer
Karl Williamson
<khw@cpan.org>
Fri, 21 Aug 2020 14:38:07 +0000
(08:38 -0600)
U/modified/contains.U
patch
|
blob
|
blame
|
history
diff --git
a/U/modified/contains.U
b/U/modified/contains.U
index
aeac1f7
..
3224673
100644
(file)
--- a/
U/modified/contains.U
+++ b/
U/modified/contains.U
@@
-33,8
+33,8
@@
rm -f grimble
: the following should work in any shell
case "$contains" in
contains*)
- echo " "
- echo "AGH! Grep doesn't return a status. Attempting remedial action."
+ echo " "
>&4
+ echo "AGH! Grep doesn't return a status. Attempting remedial action."
>&4
cat >contains <<'EOSS'
grep "$1" "$2" >.greptmp && cat .greptmp && test -s .greptmp
EOSS