diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/auto/Storable/_store.al')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/auto/Storable/_store.al | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/auto/Storable/_store.al b/chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/auto/Storable/_store.al deleted file mode 100644 index 08595e9a458..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/5.10/i686-cygwin/auto/Storable/_store.al +++ /dev/null @@ -1,41 +0,0 @@ -# NOTE: Derived from ../../lib/Storable.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Storable; - -#line 239 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_store.al)" -# Internal store to file routine -sub _store { - my $xsptr = shift; - my $self = shift; - my ($file, $use_locking) = @_; - logcroak "not a reference" unless ref($self); - logcroak "wrong argument number" unless @_ == 2; # No @foo in arglist - local *FILE; - if ($use_locking) { - open(FILE, ">>$file") || logcroak "can't write into $file: $!"; - unless (&CAN_FLOCK) { - logcarp "Storable::lock_store: fcntl/flock emulation broken on $^O"; - return undef; - } - flock(FILE, LOCK_EX) || - logcroak "can't get exclusive lock on $file: $!"; - truncate FILE, 0; - # Unlocking will happen when FILE is closed - } else { - open(FILE, ">$file") || logcroak "can't create $file: $!"; - } - binmode FILE; # Archaic systems... - my $da = $@; # Don't mess if called from exception handler - my $ret; - # Call C routine nstore or pstore, depending on network order - eval { $ret = &$xsptr(*FILE, $self) }; - close(FILE) or $ret = undef; - unlink($file) or warn "Can't unlink $file: $!\n" if $@ || !defined $ret; - logcroak $@ if $@ =~ s/\.?\n$/,/; - $@ = $da; - return $ret ? $ret : undef; -} - -# end of Storable::_store -1; |