From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 21 Aug 2011 12:30:14 +0000 (+0200)
Subject: In makedef.pl, defaulting $ARGS{TARG_DIR} to '' simplifies the code.
X-Git-Tag: accepted/trunk/20130322.191538~3036^2~7
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b78dc5b5aa541cd7ab0f2e7158cac2473704b688;p=platform%2Fupstream%2Fperl.git

In makedef.pl, defaulting $ARGS{TARG_DIR} to '' simplifies the code.
---

diff --git a/makedef.pl b/makedef.pl
index 1f61c47..672c38e 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>) {