fixed defined (@array)
Neue Perlversionen mögen das nicht mehr.
--- 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;