projects
/
p5sagit/App-FatPacker.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Die if open fails in @INC handler
[p5sagit/App-FatPacker.git]
/
lib
/
App
/
FatPacker.pm
diff --git
a/lib/App/FatPacker.pm
b/lib/App/FatPacker.pm
index
4399341
..
aa3caef
100644
(file)
--- a/
lib/App/FatPacker.pm
+++ b/
lib/App/FatPacker.pm
@@
-171,7
+171,8
@@
sub script_command_file {
unshift @INC, sub {
if (my $fat = $fatpacked{$_[1]}) {
- open my $fh, '<', \$fat;
+ open my $fh, '<', \$fat
+ or die "FatPacker error loading $_[1] (could be a perl installation issue?)";
return $fh;
}
return