[perl #22127] get(av|cv|hv|sv) added to Devel::PPPort

Message-id: <20030508064220.GA763@ethan>

p4raw-id: //depot/perl@19447

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index d29cc71..0f43224 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,6 @@
+2.003 - 8th May 2003
+
+    * Added get_av, get_cv, get_hv and get_sv
 
 2.002 - 2nd December 2001
 

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index afffae3..cbcfdb9 100644 (file)
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -1,4 +1,3 @@
-
 package Devel::PPPort;
 
 =head1 NAME
@@ -74,6 +73,10 @@ even if available, access to a fixed interface):
     dTHXa
     dTHXoa
     ERRSV
+    get_av
+    get_cv
+    get_hv
+    get_sv
     gv_stashpvn(str,len,flags)
     INT2PTR(type,int)
     IVdf
@@ -148,7 +151,7 @@ require DynaLoader;
 use strict;
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $data );
 
-$VERSION = "2.0002";
+$VERSION = "2.003";
 
 @ISA = qw(Exporter DynaLoader);
 @EXPORT =  qw();
@@ -743,6 +746,22 @@ SV *sv;
     }
 #endif
 
+#ifndef get_cv
+#   define get_cv(name,create) perl_get_cv(name,create)
+#endif
+
+#ifndef get_sv
+#   define get_sv(name,create) perl_get_sv(name,create)
+#endif
+
+#ifndef get_av
+#   define get_av(name,create) perl_get_av(name,create)
+#endif
+
+#ifndef get_hv
+#   define get_hv(name,create) perl_get_hv(name,create)
+#endif
+
 #endif /* _P_P_PORTABILITY_H_ */
 
 /* End of File ppport.h */

diff --git a/ext/Devel/PPPort/t/test.t b/ext/Devel/PPPort/t/test.t
index f0f3035..82af5e9 100644 (file)
--- a/ext/Devel/PPPort/t/test.t
+++ b/ext/Devel/PPPort/t/test.t
@@ -94,3 +94,8 @@ NOOP
 SAVE_DEFSV
 PERL_UNUSED_DECL
 dNOOP
+
+get_cv
+get_av
+get_hv
+get_sv