13 lines
452 B
Diff
13 lines
452 B
Diff
|
diff -Nur Unix-ConfigFile-0.06.old/AliasFile.pm Unix-ConfigFile-0.06/AliasFile.pm
|
||
|
--- Unix-ConfigFile-0.06.old/AliasFile.pm 2000-05-02 11:50:43.000000000 -0400
|
||
|
+++ Unix-ConfigFile-0.06/AliasFile.pm 2024-03-11 16:12:49.412000000 -0400
|
||
|
@@ -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;
|
||
|
}
|