| Subject: | @INC masked in _include_file sub |
The @INC array is masked in the _include_file subroutine causing carp to
fail to load Carp::Heavy when it needs it. This happens when the file
being included in the alias file is not readable by the uid of the perl
process. See attached file for patch correcting this problem.
| Subject: | Mail-Alias-patch.txt |
--- /tmp/Alias.pm.stock 2006-05-22 13:34:13.000000000 -0400
+++ /usr/lib/perl5/site_perl/5.8.5/Mail/Alias.pm 2006-05-22 13:34:30.000000000 -0400
@@ -532,12 +532,12 @@
#-----------------------------------------------------------#
sub _include_file {
my $file = shift;
- local *INC;
+ local *INCLUDE;
my @ln;
local $_;
- open(INC,$file) or carp "Cannot open file '$file'" and return "";
- @ln = grep(/^[^#]/,<INC>);
- close(INC);
+ open(INCLUDE,$file) or carp "Cannot open file '$file'" and return "";
+ @ln = grep(/^[^#]/,<INCLUDE>);
+ close(INCLUDE);
chomp(@ln);
join(",",@ln);
}