From 8fb6c0655d3e34f1bc7201121f91d4e4e40274d4 Mon Sep 17 00:00:00 2001
From: Michael Smith <xmldoc@users.sourceforge.net>
Date: Sat, 23 Jun 2007 02:26:12 +0000
Subject: [PATCH] Properly initialize $redirect variable in "xsltproc" script
 so that we don't get warnings from perl.

---
 buildtools/xsltproc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/buildtools/xsltproc b/buildtools/xsltproc
index 9d415b271..311e0ca8c 100755
--- a/buildtools/xsltproc
+++ b/buildtools/xsltproc
@@ -31,6 +31,7 @@ my $debug = 0;
 my $config = "~/.xmlc";
 my @opts = ();
 my $c14n = 0;
+my $redirect = "";
 
 while (@ARGV) {
     if ($ARGV[0] =~ /^-\d/) {
@@ -125,7 +126,7 @@ foreach my $param (@params) {
 # stylesheet that has exsl:document or saxon:output, xsltproc
 # tries to write the output in the /dev directory; so we need to
 # redirect the output instead of using xsltproc's -o option
-my $redirect = " > $output" if defined($output) && $output ne '-';
+$redirect = " > $output" if defined($output) && $output ne '-';
 
 if ($c14n) {
   my $xmllintpipe =  " | " . applyOpts($xp, 'xmllint') . " " . $xlintopts;
-- 
2.40.0