Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (14 sloc) 307 Bytes
my $i = 0;
unshift @INC, sub {
if (my $fat = $fatpacked{$_[1]}) {
my $fatfile = "/tmp/fat_pack_" . $i;
$i++;
open my $wfh, '>', $fatfile or die "Error opening file";
print { $wfh } $fat;
close $wfh;
open my $fh, '<', $fatfile;
unlink $fatfile;
return $fh;
}
return
};