Patch for bug 211188: Make testing suite check for any #! lines that are not…

Patch for bug 211188: Make testing suite check for any #! lines that are not /usr/bin/perl; patch by Marc Schumann <wurblzap@gmail.com>; r=vladd, a=justdave.

Patch for bug 211188: Make testing suite check for any #! lines that are not…
8065d3b2 · jocuri%softhome.net · 3bb639dc · 8065d3b2
Commit 8065d3b2 authored Sep 09, 2004 by jocuri%softhome.net
Show whitespace changes
Inline Side-by-side

Showing with 7 additions and 3 deletions

002goodperl.t t/002goodperl.t +7 -3

No files found.
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -48,7 +48,7 @@ foreach my $file (@testitems) {
    $file =~ m/.*\.(.*)/;
    my $ext = $1;
-    if ($file_line1 !~ m#/usr/bin/perl#) {
+    if ($file_line1 !~ m/^#\!/) {
        ok(1,"$file does not have a shebang");	
    } else {
        my $flags;
@@ -66,11 +66,15 @@ foreach my $file (@testitems) {
            next;
        }
-        if ($file_line1 =~ m#/usr/bin/perl -$flags#) {
+        if ($file_line1 =~ m#^\#\!/usr/bin/perl\s#) {
-            ok(1,"$file uses -$flags");
+            if ($file_line1 =~ m#\s-$flags#) {
+                ok(1,"$file uses standard perl location and -$flags");
            } else {
                ok(0,"$file is MISSING -$flags --WARNING");
            }
+        } else {
+            ok(0,"$file uses non-standard perl location");
+        }
    }
 }