Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 7be5142cd4
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (14 sloc) 0.307 kb
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
};
Jump to Line
Something went wrong with that request. Please try again.