diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-08-21 14:30:14 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-08-25 11:34:37 +0200 |
| commit | b78dc5b5aa541cd7ab0f2e7158cac2473704b688 (patch) | |
| tree | 0eedc5070969b3e9407df0813501703e4b04a851 /makedef.pl | |
| parent | 813af182c721347d3b3d708bd8be9bce7c540971 (diff) | |
| download | perl-b78dc5b5aa541cd7ab0f2e7158cac2473704b688.tar.gz | |
In makedef.pl, defaulting $ARGS{TARG_DIR} to '' simplifies the code.
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/makedef.pl b/makedef.pl index 1f61c477a4..672c38e620 100644 --- a/makedef.pl +++ b/makedef.pl @@ -35,7 +35,7 @@ BEGIN { unshift @INC, "lib" } use Config; use strict; -my %ARGS = (CCTYPE => 'MSVC'); +my %ARGS = (CCTYPE => 'MSVC', TARG_DIR => ''); my %define; @@ -100,10 +100,8 @@ my $global_sym = "global.sym"; my $globvar_sym = "globvar.sym"; my $perlio_sym = "perlio.sym"; -if (exists $ARGS{TARG_DIR}) { - s/^/$ARGS{TARG_DIR}/ - foreach $intrpvar_h, $perlvars_h, $global_sym, $globvar_sym, $perlio_sym; -} +s/^/$ARGS{TARG_DIR}/ + foreach $intrpvar_h, $perlvars_h, $global_sym, $globvar_sym, $perlio_sym; open(CFG, '<', 'config.h') || die "Cannot open config.h: $!\n"; while (<CFG>) { |