From: Graham Knop Date: Mon, 18 Nov 2013 19:40:52 +0000 (-0500) Subject: whitespace and style cleanup X-Git-Tag: v0.010000~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=15bd679ef3818ea9264956dbc15d19a7b2dfbc36;p=p5sagit%2FApp-FatPacker.git whitespace and style cleanup --- diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm index b5baa36..0ca5c86 100644 --- a/lib/App/FatPacker.pm +++ b/lib/App/FatPacker.pm @@ -283,20 +283,18 @@ sub fatpack_end { }; } return; - } + }; } else { - *{"${class}::INC"} = sub { - if (my $fat = $_[0]{$_[1]}) { + if (my $fat = $_[0]{$_[1]}) { open my $fh, '<', \$fat or die "FatPacker error loading $_[1] (could be a perl installation issue?)"; return $fh; } return; }; - } unshift @INC, bless \%fatpacked, $class; diff --git a/t/pack.t b/t/pack.t index cbbcb71..c88b9e1 100644 --- a/t/pack.t +++ b/t/pack.t @@ -49,11 +49,12 @@ require $temp_fh; my @files = sort $INC[0]->files; - is_deeply( \@files, [ 't/mod/a.pm', - 't/mod/b.pm', - 't/mod/c.pm', - 't/mod/cond.pm', - ], "\$INC[0]->files returned the files" ); + is_deeply( \@files, [ + 't/mod/a.pm', + 't/mod/b.pm', + 't/mod/c.pm', + 't/mod/cond.pm', + ], "\$INC[0]->files returned the files" ); }