← Back to branch summary

~ubuntu-branches/ubuntu/vivid/libarchive-zip-perl/vivid-proposed

« back to all changes in this revision

Viewing changes to lib/Archive/Zip/BufferedFileHandle.pm

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2004-10-30 22:19:15 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20041030221915-gtxn2xoojblyekyh
Tags: 1.14-1
http://bugs.debian.org/277773
* New upstream version.
  - Fixes: Archive::Zip is fooled by manipulated ZIP directory
    Closes: #277773.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Archive/Zip/BufferedFileHandle.pm
4
4
# I probably should just use IO::Scalar instead.
5
5
# Ned Konz, March 2000
6
6
#
7
 
# $Revision: 1.3 $
 
7
# $Revision: 1.6 $
8
8
 
9
9
use strict;
10
10
package Archive::Zip::BufferedFileHandle;
11
 
use FileHandle ();
 
11
use IO::File;
12
12
use Carp;
13
13
 
14
14
sub new
28
28
{
29
29
        my $self = shift;
30
30
        my $fileName = shift;
31
 
        my $fh = FileHandle->new($fileName, "r");
 
31
        my $fh = IO::File->new($fileName, "r");
 
32
        CORE::binmode($fh);
32
33
        if (! $fh)
33
34
        {
34
35
                Carp::carp("Can't open $fileName: $!\n");
57
58
sub close
58
59
{ 1 }
59
60
 
 
61
sub opened
 
62
{ 1 }
 
63
 
60
64
sub eof
61
65
{
62
66
        my $self = shift;