This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Allow -Uusedtrace / -Dusedtrace=false / -Dusedtrace=no
authorH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 9 Jul 2019 14:30:12 +0000 (16:30 +0200)
committerH.Merijn Brand - Tux <h.m.brand@xs4all.nl>
Tue, 9 Jul 2019 14:30:12 +0000 (16:30 +0200)
U/perl/usedtrace.U

index 0509708..b2dd6b9 100644 (file)
@@ -43,6 +43,10 @@ while $test 1 ; do
        $define|true|[yY]*)
                dflt='y'
                ;;
+       $undef|false|[nN]*)
+               dflt='n'
+               dflt_dtrace=""
+               ;;
        ?*)
                dflt='y'
                dflt_dtrace=$usedtrace