diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-08-21 13:40:33 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-25 11:34:36 +0200 |
| commit | 762c82dbe6c62c316460d460b99a834fe6ad69ea (patch) | |
| tree | fdbf3e055053a9385c2c30d5a0cd7e77bc303003 /makedef.pl | |
| parent | 5810a9df535b520e92fdee246a94d22d00cd0aad (diff) | |
| download | perl-762c82dbe6c62c316460d460b99a834fe6ad69ea.tar.gz | |
In makedef.pl, no need to store 'config.h' in a variable.
Unlike the other files opened by makedef.pl, config.h is always opened in the
current directory, so the filename doesn't modifying if $ARGS{TARG_DIR} is set.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/makedef.pl b/makedef.pl index 076b39a03a..1f61c477a4 100644 --- a/makedef.pl +++ b/makedef.pl @@ -94,7 +94,6 @@ my %exportperlmalloc = my $exportperlmalloc = $ARGS{PLATFORM} eq 'os2'; -my $config_h = "config.h"; my $intrpvar_h = "intrpvar.h"; my $perlvars_h = "perlvars.h"; my $global_sym = "global.sym"; @@ -106,7 +105,7 @@ if (exists $ARGS{TARG_DIR}) { foreach $intrpvar_h, $perlvars_h, $global_sym, $globvar_sym, $perlio_sym; } -open(CFG,$config_h) || die "Cannot open $config_h: $!\n"; +open(CFG, '<', 'config.h') || die "Cannot open config.h: $!\n"; while (<CFG>) { $define{$1} = 1 if /^\s*\#\s*define\s+(MYMALLOC|MULTIPLICITY |SPRINTF_RETURNS_STRLEN |