[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 # NOTE: Derived from ../../lib/Storable.pm. 2 # Changes made here will be lost when autosplit is run again. 3 # See AutoSplit.pm. 4 package Storable; 5 6 #line 292 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_store_fd.al)" 7 # Internal store routine on opened file descriptor 8 sub _store_fd { 9 my $xsptr = shift; 10 my $self = shift; 11 my ($file) = @_; 12 logcroak "not a reference" unless ref($self); 13 logcroak "too many arguments" unless @_ == 1; # No @foo in arglist 14 my $fd = fileno($file); 15 logcroak "not a valid file descriptor" unless defined $fd; 16 my $da = $@; # Don't mess if called from exception handler 17 my $ret; 18 # Call C routine nstore or pstore, depending on network order 19 eval { $ret = &$xsptr($file, $self) }; 20 logcroak $@ if $@ =~ s/\.?\n$/,/; 21 local $\; print $file ''; # Autoflush the file if wanted 22 $@ = $da; 23 return $ret ? $ret : undef; 24 } 25 26 # end of Storable::_store_fd 27 1;
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |