diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Archive/Zip/FileMember.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Archive/Zip/FileMember.pm | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Archive/Zip/FileMember.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Archive/Zip/FileMember.pm deleted file mode 100644 index cb0b72e218b..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Archive/Zip/FileMember.pm +++ /dev/null @@ -1,64 +0,0 @@ -package Archive::Zip::FileMember; - -use strict; -use vars qw( $VERSION @ISA ); - -BEGIN { - $VERSION = '1.23'; - @ISA = qw ( Archive::Zip::Member ); -} - -use Archive::Zip qw( - :UTILITY_METHODS -); - -sub externalFileName { - shift->{'externalFileName'}; -} - -# Return true if I depend on the named file -sub _usesFileNamed { - my $self = shift; - my $fileName = shift; - my $xfn = $self->externalFileName(); - return undef if ref($xfn); - return $xfn eq $fileName; -} - -sub fh { - my $self = shift; - $self->_openFile() - if !defined( $self->{'fh'} ) || !$self->{'fh'}->opened(); - return $self->{'fh'}; -} - -# opens my file handle from my file name -sub _openFile { - my $self = shift; - my ( $status, $fh ) = _newFileHandle( $self->externalFileName(), 'r' ); - if ( !$status ) { - _ioError( "Can't open", $self->externalFileName() ); - return undef; - } - $self->{'fh'} = $fh; - _binmode($fh); - return $fh; -} - -# Make sure I close my file handle -sub endRead { - my $self = shift; - undef $self->{'fh'}; # _closeFile(); - return $self->SUPER::endRead(@_); -} - -sub _become { - my $self = shift; - my $newClass = shift; - return $self if ref($self) eq $newClass; - delete( $self->{'externalFileName'} ); - delete( $self->{'fh'} ); - return $self->SUPER::_become($newClass); -} - -1; |