Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / sun4-solaris / auto / Storable / _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 307 "../../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;