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

[p5sagit/p5-mst-13.2.git] / ext / Devel / PPPort / PPPort.pm

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 */