diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TeXCatalogue.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TeXCatalogue.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TeXCatalogue.pm b/Master/tlpkg/TeXLive/TeXCatalogue.pm index 575242d19a6..7d116c2ba69 100644 --- a/Master/tlpkg/TeXLive/TeXCatalogue.pm +++ b/Master/tlpkg/TeXLive/TeXCatalogue.pm @@ -186,13 +186,13 @@ sub initialize { || die "chdir($self->{location}/entries failed: $!"; # parse all the files foreach (glob("?/*.xml")) { - open(my $io,"<$_") or die "Cannot read $_: $!"; + open(my $io,"<$_") or die "open($_) failed: $!"; our $tce; # the XML parser die's on malformed xml entries, so we catch # that and continue, simply skipping the entry eval { $tce = TeXLive::TeXCatalogue::Entry->new( 'ioref' => $io ); }; if ($@) { - printf STDERR "TeX Catalogue: cannot read $_, skipping it!\n"; + printf STDERR "TeXCatalogue.pm: cannot parse $_, skipping it!\n"; close($io); next; } |