More CJK (just C, really) tables from Autrijus Tang

[p5sagit/p5-mst-13.2.git] / vms / test.com

diff --git a/vms/test.com b/vms/test.com
index 8c4d840..bd96543 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -102,10 +102,8 @@ while ($test = shift) {
        open(script,"$test") || die "Can't run $test.\n";
        $_ = <script>;
        close(script);
-       if (/#!..perl(.*)/) {
-           $switch = $1;
-           # Add "" to protect uppercase switches on command line
-           $switch =~ s/-(\S*[A-Z]\S*)/"-$1"/g;
+       if (/#!.*\bperl.*-\w*([tT])/) {
+           $switch = qq{"-$1"};
        } else {
            $switch = '';
        }