This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
contains.U: Need a path to the generated script
authorKarl Williamson <khw@cpan.org>
Sun, 21 Jun 2020 18:33:25 +0000 (12:33 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 21 Aug 2020 20:34:31 +0000 (14:34 -0600)
I tested what would happen with 'contains' if grep is actually broken on
the box, and it failed because it didn't know where the generated
work-around script is.

This commit fixes this, but the fact that no failures have been showing
up indicates that modern greps just aren't broken this way.

U/modified/contains.U

index 3224673..1c629fc 100644 (file)
@@ -38,6 +38,7 @@ contains*)
        cat >contains <<'EOSS'
 grep "$1" "$2" >.greptmp && cat .greptmp && test -s .greptmp
 EOSS
-chmod +x contains
+contains=./contains
+chmod +x $contains
 esac