fix @ISA, it was badly broken, thanks to Yuval Kogman (nothingmuch)
authorTony Cook <tony@develop=help.com>
Tue, 18 Mar 2008 23:27:12 +0000 (23:27 +0000)
committerTony Cook <tony@develop=help.com>
Tue, 18 Mar 2008 23:27:12 +0000 (23:27 +0000)
Array.pm
Changes
t/01_array.t

index 61c1ac0..98d385d 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 4704a0a..f6065f6 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
index 9a5c60b..fb8f183 100644 (file)
@@ -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");