fixed defined (@array)
authorHeiko Schlittermann (JUMPER) <hs@schlittermann.de>
Tue, 09 Dec 2014 22:56:42 +0100
changeset 77 c32177d893a5
parent 64 f5c3eb82fa62
child 78 0d428ce0839a
fixed defined (@array) Neue Perlversionen mögen das nicht mehr.
log.pl
--- a/log.pl	Tue Aug 28 09:21:09 2012 +0200
+++ b/log.pl	Tue Dec 09 22:56:42 2014 +0100
@@ -119,7 +119,7 @@
         $opt_message =~ s/\n/\n    /g;
     }
 
-    if (defined @config::notify_dirs || $opt_initdir) {
+    if (@config::notify_dirs || $opt_initdir) {
         check_hg_bin();
     }
 
@@ -139,7 +139,7 @@
     }
 
     my $hg_status_text = "";
-    if (defined @config::notify_dirs) {
+    if (@config::notify_dirs) {
         foreach my $dir (@config::notify_dirs) {
             -d $dir or next;
 
@@ -267,7 +267,7 @@
             print STDERR "Mail sent (to $mailto).\n";
         }
 
-        if (defined @config::notify_dirs) {
+        if (@config::notify_dirs) {
             foreach my $dir (@config::notify_dirs) {
                 -d $dir or next;