This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
contains.U: echo should go to >&4
authorKarl Williamson <khw@cpan.org>
Tue, 18 Aug 2020 18:30:50 +0000 (12:30 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 21 Aug 2020 14:38:07 +0000 (08:38 -0600)
U/modified/contains.U

index aeac1f7..3224673 100644 (file)
@@ -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