This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add Perl_ to SvAMAGIC _off,_on names
[perl5.git]
/
plan9
/
genconfig.pl
diff --git
a/plan9/genconfig.pl
b/plan9/genconfig.pl
index
334c6b7
..
ebd97db
100644
(file)
--- a/
plan9/genconfig.pl
+++ b/
plan9/genconfig.pl
@@
-28,7
+28,7
@@
unshift(@INC,'lib'); # In case someone didn't define Perl_Root
# before the build
if ($ARGV[0] eq '-f') {
# before the build
if ($ARGV[0] eq '-f') {
- open(ARGS,$ARGV[1]) or die "Can't read data from $ARGV[1]: $!\n";
+ open(ARGS,
'<',
$ARGV[1]) or die "Can't read data from $ARGV[1]: $!\n";
@ARGV = ();
while (<ARGS>) {
push(@ARGV,split(/\|/,$_));
@ARGV = ();
while (<ARGS>) {
push(@ARGV,split(/\|/,$_));
@@
-47,8
+47,8
@@
Can't find config.h to read!
EndOfGasp
}
$outdir = '';
EndOfGasp
}
$outdir = '';
-open(IN,
"$infile"
) || die "Can't open $infile: $!\n";
-open(OUT,
">
${outdir}config.sh") || die "Can't open ${outdir}config.sh: $!\n";
+open(IN,
'<',$infile
) || die "Can't open $infile: $!\n";
+open(OUT,
'>',"
${outdir}config.sh") || die "Can't open ${outdir}config.sh: $!\n";
$time = localtime;
$cf_by = $ENV{'user'};
$time = localtime;
$cf_by = $ENV{'user'};
@@
-174,7
+174,7
@@
print OUT "myuname='Plan9 $myname $osvers $p9p_objtype'\n";
# Before we read the C header file, find out what config.sh constants are
# equivalent to the C preprocessor macros
# Before we read the C header file, find out what config.sh constants are
# equivalent to the C preprocessor macros
-if (open(SH,"${outdir}config_h.SH")) {
+if (open(SH,
'<',
"${outdir}config_h.SH")) {
while (<SH>) {
next unless m%^#(?!if).*\$%;
s/^#//; s!(.*?)\s*/\*.*!$1!;
while (<SH>) {
next unless m%^#(?!if).*\$%;
s/^#//; s!(.*?)\s*/\*.*!$1!;
@@
-205,7
+205,7
@@
while (<IN>) { # roll through the comment header in config.h
while (<IN>) {
chop;
while (<IN>) {
chop;
- while (/\\\s*$/) { # pick up contination lines
+ while (/\\\s*$/) { # pick up contin
u
ation lines
my $line = $_;
$line =~ s/\\\s*$//;
$_ = <IN>;
my $line = $_;
$line =~ s/\\\s*$//;
$_ = <IN>;
@@
-267,7
+267,7
@@
foreach (sort keys %val_vars) {
# print OUT "libs='",join(' ',@libs),"'\n";
# print OUT "libc='",join(' ',@crtls),"'\n";
# print OUT "libs='",join(' ',@libs),"'\n";
# print OUT "libc='",join(' ',@crtls),"'\n";
-if (open(PL,"${outdir}patchlevel.h")) {
+if (open(PL,
'<',
"${outdir}patchlevel.h")) {
while (<PL>) {
if (/^#define PERL_VERSION\s+(\S+)/) {
print OUT "PERL_VERSION='$1'\n";
while (<PL>) {
if (/^#define PERL_VERSION\s+(\S+)/) {
print OUT "PERL_VERSION='$1'\n";