diff options
author | Adam Spiers <stow@adamspiers.org> | 2012-01-13 11:34:55 +0000 |
---|---|---|
committer | Adam Spiers <stow@adamspiers.org> | 2012-01-13 11:35:53 +0000 |
commit | fe18b6c442cf5b2f2d87d89feb54bde0a2c6fbb9 (patch) | |
tree | ba23e1fada8cb1c62b94b98a8519a0f180c39413 /lib/Stow.pm.in | |
parent | 25b9ce0f21a07af1a8a14f57d87bb560b59e8352 (diff) | |
download | stow-fe18b6c442cf5b2f2d87d89feb54bde0a2c6fbb9.tar.gz |
Avoid "Use of uninitialized value" warnings from test suite.
Happened on some versions of Perl when TEST_VERBOSE not yet.
Thanks Adam Sampson!
Diffstat (limited to 'lib/Stow.pm.in')
-rwxr-xr-x | lib/Stow.pm.in | 1 |
1 files changed, 1 insertions, 0 deletions
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 |