$ENV{HOME} may be unset which would produce a warning
authorMatthias Förste <foerste@schlittermann.de>
Thu, 03 Dec 2015 10:03:30 +0100
changeset 26 a815b43eec44
parent 25 14ec9c4634f3
child 27 7debeb182289
$ENV{HOME} may be unset which would produce a warning
wgnd-watch.pl
--- a/wgnd-watch.pl	Thu May 03 22:41:44 2012 +0200
+++ b/wgnd-watch.pl	Thu Dec 03 10:03:30 2015 +0100
@@ -79,7 +79,7 @@
 ) or pod2usage();
 
 our $source;
-use lib ('.', $ENV{HOME}, '/etc');
+use lib grep { defined } ('.', $ENV{HOME}, '/etc');
 require $opts{map};
 
 $0 = "$ME @ARGV";