From fe18b6c442cf5b2f2d87d89feb54bde0a2c6fbb9 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Fri, 13 Jan 2012 11:34:55 +0000
Subject: [PATCH] Avoid "Use of uninitialized value" warnings from test suite.

Happened on some versions of Perl when TEST_VERBOSE not yet.
Thanks Adam Sampson!
---
 lib/Stow.pm.in | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in
index 3565e3f..329df9a 100755
--- a/lib/Stow.pm.in
+++ b/lib/Stow.pm.in
@@ -142,6 +142,7 @@ sub get_verbosity {
 
     return $self->{verbose} unless $self->{test_mode};
 
+    return 0 unless exists $ENV{TEST_VERBOSE};
     return 0 unless length $ENV{TEST_VERBOSE};
 
     # Convert TEST_VERBOSE=y into numeric value