From b78dc5b5aa541cd7ab0f2e7158cac2473704b688 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 21 Aug 2011 14:30:14 +0200
Subject: [PATCH] In makedef.pl, defaulting $ARGS{TARG_DIR} to '' simplifies
 the code.

---
 makedef.pl | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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>) {
-- 
2.7.4