FM / Storable

/usr/lib64/perl5/auto/Storable

Name	Size	Mode	Actions
.packlist	180	0644	edit dl rm
autosplit.ix	519	0644	edit dl rm
BIN_VERSION_NV.al	348	0644	edit dl rm
BIN_WRITE_VERSION_NV.al	372	0644	edit dl rm
CAN_FLOCK.al	555	0644	edit dl rm
fd_retrieve.al	673	0644	edit dl rm
file_magic.al	603	0644	edit dl rm
freeze.al	401	0644	edit dl rm
lock_nstore.al	410	0644	edit dl rm
lock_retrieve.al	387	0644	edit dl rm
lock_store.al	401	0644	edit dl rm
logcarp.al	295	0644	edit dl rm
logcroak.al	438	0644	edit dl rm
nfreeze.al	361	0644	edit dl rm
nstore.al	366	0644	edit dl rm
nstore_fd.al	406	0644	edit dl rm
read_magic.al	1831	0644	edit dl rm
retrieve.al	416	0644	edit dl rm
show_file_magic.al	801	0644	edit dl rm
Storable.so	85936	0755	edit dl rm
store.al	542	0644	edit dl rm
store_fd.al	448	0644	edit dl rm
thaw.al	665	0644	edit dl rm
_freeze.al	706	0644	edit dl rm
_retrieve.al	909	0644	edit dl rm
_store.al	1328	0644	edit dl rm
_store_fd.al	901	0644	edit dl rm

Edit: /usr/lib64/perl5/auto/Storable/file_magic.al (603B)

# NOTE: Derived from ../../lib/Storable.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Storable; #line 118 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/file_magic.al)" sub file_magic { my $file = shift; my $fh = new FileHandle; open($fh, "<". $file) || die "Can't open '$file': $!"; binmode($fh); defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!"; close($fh); $file = "./$file" unless $file; # ensure TRUE value return read_magic($buf, $file); } # end of Storable::file_magic 1;