#!/usr/bin/perl-current misparse

Message-ID: <20020512233258.GK696@blackrider>

p4raw-id: //depot/perl@16570

diff --git a/t/TEST b/t/TEST
index 47560cd..9ac287a 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -206,7 +206,7 @@ EOT
        open(SCRIPT,"<$test") or die "Can't run $test.\n";
        $_ = <SCRIPT>;
        close(SCRIPT) unless ($type eq 'deparse');
-       if (/#!.*\bperl.*-\w*([tT])/) {
+       if (/#!.*\bperl.*\s-\w*([tT])/) {
            $switch = qq{"-$1"};
        }
        else {