Sys::Hostname fails under Solaris 2.5 when setuid

[p5sagit/p5-mst-13.2.git] / lib / Test / Harness.pm

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 6979a11..24e9148 100644 (file)
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -104,7 +104,8 @@ sub runtests {
        }
        $fh->close; # must close to reap child resource values
        my $wstatus = $?;
-       my $estatus = ($^O eq 'VMS'
+       my $estatus;
+       $estatus = ($^O eq 'VMS'
                       ? eval 'use vmsish "status"; $estatus = $?'
                       : $wstatus >> 8);
        if ($wstatus) {