Hackfut Security File Manager
Current Path:
/usr/lib64/perl5/auto/Storable
usr
/
lib64
/
perl5
/
auto
/
Storable
/
📁
..
📄
BIN_VERSION_NV.al
(348 B)
📄
BIN_WRITE_VERSION_NV.al
(372 B)
📄
CAN_FLOCK.al
(555 B)
📄
Storable.so
(83.92 KB)
📄
_freeze.al
(706 B)
📄
_retrieve.al
(909 B)
📄
_store.al
(1.3 KB)
📄
_store_fd.al
(901 B)
📄
autosplit.ix
(519 B)
📄
fd_retrieve.al
(673 B)
📄
file_magic.al
(603 B)
📄
freeze.al
(401 B)
📄
lock_nstore.al
(410 B)
📄
lock_retrieve.al
(387 B)
📄
lock_store.al
(401 B)
📄
logcarp.al
(295 B)
📄
logcroak.al
(438 B)
📄
nfreeze.al
(361 B)
📄
nstore.al
(366 B)
📄
nstore_fd.al
(406 B)
📄
read_magic.al
(1.79 KB)
📄
retrieve.al
(416 B)
📄
show_file_magic.al
(801 B)
📄
store.al
(542 B)
📄
store_fd.al
(448 B)
📄
thaw.al
(665 B)
Editing: _retrieve.al
# NOTE: Derived from ../../lib/Storable.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Storable; #line 364 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_retrieve.al)" # Internal retrieve routine sub _retrieve { my ($file, $use_locking) = @_; local *FILE; open(FILE, $file) || logcroak "can't open $file: $!"; binmode FILE; # Archaic systems... my $self; my $da = $@; # Could be from exception handler if ($use_locking) { unless (&CAN_FLOCK) { logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; return undef; } flock(FILE, LOCK_SH) || logcroak "can't get shared lock on $file: $!"; # Unlocking will happen when FILE is closed } eval { $self = pretrieve(*FILE) }; # Call C routine close(FILE); logcroak $@ if $@ =~ s/\.?\n$/,/; $@ = $da; return $self; } # end of Storable::_retrieve 1;
Upload File
Create Folder