From: bobstayton <bobs@sagehill.net>
Date: Tue, 5 Jun 2018 23:03:21 +0000 (-0700)
Subject: fixed two Perl warnings due to uninitialized variables
X-Git-Tag: snapshot/2018-09-28-172~54
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=8b7f335cc03081af83789530dad2a69cc2ef6794;p=docbook-dsssl

fixed two Perl warnings due to uninitialized variables
---

diff --git a/buildtools/saxon b/buildtools/saxon
index 4b662b95e..028df8296 100755
--- a/buildtools/saxon
+++ b/buildtools/saxon
@@ -159,7 +159,7 @@ foreach my $name (@opts, $optsname) {
     applyOpts($xp, $name);
 }
 
-$java = "java" if $java eq '';
+$java = "java" if !defined($java) or $java eq '';
 
 foreach my $path (reverse split(/$cpseparator/, $CLASSPATH)) {
     unshift(@classpath, $path);
@@ -221,7 +221,7 @@ sub applyOpts {
 	if $classname eq '';
 
     $java = $saxon->getAttribute('java')
-	if $java eq '';
+        if !defined($java) or $java eq '';
 
     foreach my $path (configPath($saxon, 'classpath', $cpseparator)) {
 	addOpt(\@classpath, $path);
@@ -244,7 +244,7 @@ sub applyOpts {
     }
 
     my $extends = $saxon->getAttribute('extends');
-    applyOpts($xp, $extends) if $extends ne '';
+    applyOpts($xp, $extends) if defined($extends) and $extends ne '';
 }
 
 sub configArgs {