From 8065d3b2d560911f953e49181c49cc407461c645 Mon Sep 17 00:00:00 2001 From: "jocuri%softhome.net" <> Date: Thu, 9 Sep 2004 05:46:34 +0000 Subject: Patch for bug 211188: Make testing suite check for any #! lines that are not /usr/bin/perl; patch by Marc Schumann ; r=vladd, a=justdave. --- t/002goodperl.t | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/002goodperl.t b/t/002goodperl.t index 676cd1776..e9726cb8c 100644 --- 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,10 +66,14 @@ foreach my $file (@testitems) { next; } - if ($file_line1 =~ m#/usr/bin/perl -$flags#) { - ok(1,"$file uses -$flags"); + if ($file_line1 =~ m#^\#\!/usr/bin/perl\s#) { + 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 is MISSING -$flags --WARNING"); + ok(0,"$file uses non-standard perl location"); } } } -- cgit v1.2.3-24-g4f1b