perl-Unix-ConfigFile/perl-Unix-ConfigFile-defined.patch

13 lines
452 B
Diff
Raw Normal View History

2024-03-11 21:18:36 +01:00
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;
}