From: Karl Williamson <public@khwilliamson.com>
Date: Sat, 15 Feb 2014 23:11:55 +0000 (-0700)
Subject: t/test.pl: Don't read uninitialized variable
X-Git-Tag: upstream/5.20.0~413
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5fd8fad5ea5cd316704373bc784473dd4e3865b0;p=platform%2Fupstream%2Fperl.git

t/test.pl: Don't read uninitialized variable

Commit 97dffe50643dd18f87b33b7ec6f8b55bbfd1fd74 introduced
an attempt to access an unitialized hash value.
---

diff --git a/t/test.pl b/t/test.pl
index 152c796..15282ca 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -681,7 +681,7 @@ sub _create_runperl { # Create the string to qx in runperl().
     if (defined $args{args}) {
 	$runperl = _quote_args($runperl, $args{args});
     }
-    if ($args{stderr} eq 'devnull') {
+    if (exists $args{stderr} && $args{stderr} eq 'devnull') {
         $runperl = $runperl . ($is_mswin ? ' 2>nul' : ' 2>/dev/null');
     }
     elsif ($args{stderr}) {