Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-01-03 23:01:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
jocuri%softhome.net 2004-09-08 22:46:34 +00:00
parent cda0d2261b
commit 1b94d5966b
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
webtools/bugzilla/t/002goodperl.t
View File

@ -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");
}
}
}