Re: [wxperl-users] wxZipFSHandler fails with 2.7.2

[Mattia B. <mat...@li...>]

On Mon, 06 Nov 2006 02:44:32 +0000
Mark Dootson <mar...@zn...> wrote:

> Hi,
> 
> The addition of wxArchiveFSHandler in wxWidgets 2.7.2 breaks inheritance
> for Wx::ZipFSHandler.
> 
> patch file attached - though I'm not sure about the version check in
> FS.pm - is this an OK way to do this?

  Yes, it is the only way; I just rewrote it as:

Index: lib/Wx/FS.pm
===================================================================
RCS file: /cvsroot/wxperl/wxPerl/ext/filesys/lib/Wx/FS.pm,v
retrieving revision 1.8
diff -u -2 -r1.8 FS.pm
--- lib/Wx/FS.pm        21 Dec 2004 21:12:51 -0000      1.8
+++ lib/Wx/FS.pm        6 Nov 2006 10:50:21 -0000
@@ -31,7 +31,11 @@
 package Wx::FileSystemHandler;
 package Wx::InternetFSHandler;  @ISA = qw(Wx::FileSystemHandler);
-package Wx::ZipFSHandler;       @ISA = qw(Wx::FileSystemHandler);
 package Wx::PlFileSystemHandler; @ISA = qw(Wx::FileSystemHandler);
 package Wx::PlFSFile;           @ISA = qw(Wx::FSFile);
+package Wx::ArchiveFSHandler;   @ISA = qw(Wx::FileSystemHandler);
+package Wx::ZipFSHandler;
+
+@ISA = Wx::wxVERSION() < 2.007002 ? qw(Wx::FileSystemHandler) :
+                                    qw(Wx::ArchiveFSHandler);

 use strict;

Thanks!
Mattia