|
Lines 133-148
sub do_stdin {
Link Here
|
| 133 |
|
133 |
|
| 134 |
# If we're using a CVS build, add the -w switch to turn on warnings |
134 |
# If we're using a CVS build, add the -w switch to turn on warnings |
| 135 |
my $perl_warn = -f 'CVS/Repository' ? ' -w' : ''; |
135 |
my $perl_warn = -f 'CVS/Repository' ? ' -w' : ''; |
| 136 |
# The warnings can be overwritten via -DPERL_WARN=<1|0> |
136 |
# The warnings can be overwritten via -DPERL_WARN=<yes|no> |
| 137 |
if ($defines{'PERL_WARN'} && ($defines{'PERL_WARN'} ne 'auto')) { |
137 |
if ($defines{'PERL_WARN'}) { |
| 138 |
if ($defines{'PERL_WARN'} eq 'yes') { |
138 |
if ($defines{'PERL_WARN'} eq 'yes') { |
| 139 |
$perl_warn = ' -w'; |
139 |
$perl_warn = ' -w'; |
| 140 |
} |
140 |
} |
| 141 |
elsif ($defines{'PERL_WARN'} eq 'no') { |
141 |
elsif ($defines{'PERL_WARN'} eq 'no') { |
| 142 |
$perl_warn = ''; |
142 |
$perl_warn = ''; |
| 143 |
} |
143 |
} |
| 144 |
else { |
144 |
} |
| 145 |
warn("Unknown value '$defines{'PERL_WARN'}' for PERL_WARN; assuming 'auto'"); |
145 |
|
|
|
146 |
# Taint mode is enabled per default |
| 147 |
my $perl_taint = ' -T'; |
| 148 |
# The taint mode can be disabled with -DPERL_TAINT=<yes|no> |
| 149 |
if ($defines{'PERL_TAINT'}) { |
| 150 |
if ($defines{'PERL_TAINT'} eq 'no') { |
| 151 |
$perl_taint = ''; |
| 146 |
} |
152 |
} |
| 147 |
} |
153 |
} |
| 148 |
|
154 |
|
|
Lines 180-186
sub do_stdin {
Link Here
|
| 180 |
|
186 |
|
| 181 |
# Sharpbang (#!) replacement (see also ExtUtils::MY->fixin) |
187 |
# Sharpbang (#!) replacement (see also ExtUtils::MY->fixin) |
| 182 |
if ($modules{'sharpbang'} && ($l == 1)) { |
188 |
if ($modules{'sharpbang'} && ($l == 1)) { |
| 183 |
s/^#!.*perl.*$/#!${perl}${perl_warn}/; |
189 |
s/^#!.*perl.*$/#!${perl}${perl_taint}${perl_warn}/; |
| 184 |
} |
190 |
} |
| 185 |
|
191 |
|
| 186 |
print; |
192 |
print; |
