1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
* Fix ancient perl 4 modules that are long gone.
* Fix perl shebangs to be portable and usable on Prefix.
See also: https://blogs.gentoo.org/mgorny/2016/02/08/a-quick-note-on-portable-shebangs/
--- a/squid/Testsuite/bug-1-sfetch-paths
+++ b/squid/Testsuite/bug-1-sfetch-paths
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
# Test for bug #1: sfetch/SSI path bug.
# sfetch can't follow paths out of current directory if it's using
--- a/squid/Testsuite/x-base-afetch
+++ b/squid/Testsuite/x-base-afetch
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/squid/Testsuite/x-base-alistat
+++ b/squid/Testsuite/x-base-alistat
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/squid/Testsuite/x-base-seqstat
+++ b/squid/Testsuite/x-base-seqstat
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/squid/Testsuite/x-base-sfetch
+++ b/squid/Testsuite/x-base-sfetch
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/squid/Testsuite/x-base-shuffle
+++ b/squid/Testsuite/x-base-shuffle
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/squid/Testsuite/x-base-sindex
+++ b/squid/Testsuite/x-base-sindex
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/squid/Testsuite/x-base-sreformat
+++ b/squid/Testsuite/x-base-sreformat
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
use testsuite;
--- a/testsuite/sqc
+++ b/testsuite/sqc
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
# sqc
# quality control script for exercising code, regression testing,
@@ -176,12 +176,11 @@
# SRE, Tue Aug 6 11:16:39 2002
# CVS $Id: sqc,v 1.3 2003/01/05 23:40:57 eddy Exp $
-require "getopts.pl";
-require "importenv.pl";
+use Getopt::Std;
# Parse our command line
#
-&Getopts('mp:r:v');
+getopts('mp:r:v');
if ($opt_m) { $do_memtest = 1; }
if ($opt_p) { push @prepdirs, $opt_p; }
if ($opt_r) { push @olddirs, $opt_r; }
@@ -506,7 +505,7 @@
#
sub tempname {
my ($dir, $name, $suffix);
- if ($TMPDIR) { $dir = $TMPDIR."/"; } else {$dir = "";}
+ if ($ENV{TMPDIR}) { $dir = $ENV{TMPDIR}."/"; } else {$dir = "";}
foreach $suffix ("aa".."zz") {
$name = "$dir"."sre".$suffix.$$;
--- a/testsuite/test1-conversion.pl
+++ b/testsuite/test1-conversion.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl
+#!/usr/bin/env perl
# Test hmmconvert.
#
|
GitWeb