fix @ISA, it was badly broken, thanks to Yuval Kogman (nothingmuch)

diff --git a/Array.pm b/Array.pm
index 61c1ac07ec8a94d39612eee0a005fafa6722403c..98d385d064e5ed3b43e685bc5298d9b1369cf6a7 100644 (file)
--- a/Array.pm
+++ b/Array.pm
@@ -3,11 +3,8 @@ use strict;
 use vars qw(@ISA $VERSION);
 use POE::Queue;
 
-@ISA = qw(POE::Queue);
-
 BEGIN {
-  require Exporter;
-  @ISA = qw(Exporter);
+  @ISA = qw(POE::Queue);
   $VERSION = '0.003';
   eval {
     # try XSLoader first, DynaLoader has annoying baggage

diff --git a/Changes b/Changes
index 4704a0a3bee4bd8babe8f0aaf1429ad23392bf13..f6065f626fdcddbaf5b07b869bb6a2ac71044947 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension POE::XS::Queue::Array.
 
+0.004
+ - include license information in appropriate places
+ - fix @ISA, it was badly broken, thanks to Yuval Kogman (nothingmuch)
+
 0.003 Thu Sep 14 2006
  - added #include <string.h> for strcmp/strerror declarations
  - added a missing format specifier in the debug code in queue.c

diff --git a/t/01_array.t b/t/01_array.t
index 9a5c60b56a6303bdc94942e573746a1233764aa6..fb8f183aca69a5f1cad0c96811ffac37d02b720a 100644 (file)
--- a/t/01_array.t
+++ b/t/01_array.t
@@ -12,7 +12,7 @@ use strict;
 
 use lib qw(./mylib);
 
-use Test::More tests => 2047;
+use Test::More tests => 2048;
 
 sub POE::Kernel::ASSERT_DEFAULT () { 1 }
 sub POE::Kernel::TRACE_DEFAULT  () { 1 }
@@ -24,6 +24,8 @@ BEGIN { use_ok("POE::XS::Queue::Array") }
 
 my $q = POE::XS::Queue::Array->new();
 
+isa_ok($q, 'POE::Queue');
+
 ok($q->get_item_count == 0, "queue begins empty");
 ok(!defined($q->dequeue_next), "can't dequeue from empty queue");