# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1418162202 -3600
# Node ID c32177d893a572c4b6c7885de8f397580e375ef6
# Parent  f5c3eb82fa62fefcb79442ebbc4cebee4929ca29
fixed defined (@array)

Neue Perlversionen mögen das nicht mehr.

diff -r f5c3eb82fa62 -r c32177d893a5 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;