|
@@ -40,7 +40,11 @@ sub read ($self, $query={}) {
|
|
|
my @items;
|
|
my @items;
|
|
|
foreach my $item (@index) {
|
|
foreach my $item (@index) {
|
|
|
next unless -f $item;
|
|
next unless -f $item;
|
|
|
- my $slurped = File::Slurper::read_text($item);
|
|
|
|
|
|
|
+ my $slurped = eval { File::Slurper::read_text($item) };
|
|
|
|
|
+ if (!$slurped) {
|
|
|
|
|
+ print "Failed to Read $item:\n$@\n";
|
|
|
|
|
+ next;
|
|
|
|
|
+ }
|
|
|
my $parsed = $parser->decode($slurped);
|
|
my $parsed = $parser->decode($slurped);
|
|
|
|
|
|
|
|
#XXX this imposes an inefficiency in itself, get() will filter uselessly again here
|
|
#XXX this imposes an inefficiency in itself, get() will filter uselessly again here
|
George S. Baugh