1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Description: fix "defined(@array)" error
Origin: CPAN RT
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=103189
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=103189
Bug-Debian: https://bugs.debian.org/789470
Author: TONYC@cpan.org
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2015-06-21
diff -ru Unix-ConfigFile-0.06-p7qUjC/AliasFile.pm Unix-ConfigFile-0.06-2t7dzt/AliasFile.pm
--- Unix-ConfigFile-0.06-p7qUjC/AliasFile.pm 2000-05-03 01:50:43.000000000 +1000
+++ Unix-ConfigFile-0.06-2t7dzt/AliasFile.pm 2015-03-30 15:20:00.000000000 +1100
@@ -213,7 +213,7 @@
}
my $name = $1;
my @users = $this->alias($name);
- next if !defined @users;
+ next if !@users;
print $fh $this->joinwrap(80, "$name: ", "\t", ",", ",", @users), "\n"
or return 0;
}
Only in Unix-ConfigFile-0.06-2t7dzt/: AliasFile.pm~
|
