XS-Typemap tests: use parent instead of base
authorRicardo Signes <rjbs@cpan.org>
Mon, 9 Sep 2013 02:06:57 +0000 (22:06 -0400)
committerRicardo Signes <rjbs@cpan.org>
Thu, 12 Sep 2013 23:49:17 +0000 (19:49 -0400)
ext/XS-Typemap/t/Typemap.t

index ef22280..e251c55 100644 (file)
@@ -17,13 +17,13 @@ pass();
 # Some inheritance trees to check ISA relationships
 BEGIN {
   package intObjPtr::SubClass;
-  use base qw/ intObjPtr /;
+  use parent '-norequire', qw/ intObjPtr /;
   sub xxx { 1; }
 }
 
 BEGIN {
   package intRefIvPtr::SubClass;
-  use base qw/ intRefIvPtr /;
+  use parent '-norequire', qw/ intRefIvPtr /;
   sub xxx { 1 }
 }