call_(pv|etc.) for Devel::PPPort

Message-id: <20030908065609.GA1260@ethan>

p4raw-id: //depot/perl@21074

diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes
index 9d91f70..5c5ea4e 100755 (executable)
--- a/ext/Devel/PPPort/Changes
+++ b/ext/Devel/PPPort/Changes
@@ -1,3 +1,8 @@
+2.006 - 8th September 2003
+
+    * call_(pv|sv|method|argv) added
+    * still compiler-warnings for grok_??? and 5.6.x, fixed
+
 2.005 - 2nd September 2003
 
     * Some tweaks to grok_(hex|oct|bin) to make compiler warnings

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 965e268..3fbd76c 100644 (file)
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -64,6 +64,10 @@ even if available, access to a fixed interface):
     aTHX_
     AvFILLp
     boolSV(b)
+    call_argv
+    call_method
+    call_pv
+    call_sv
     DEFSV
     dMY_CXT    
     dMY_CXT_SV
@@ -156,7 +160,7 @@ require DynaLoader;
 use strict;
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK $data );
 
-$VERSION = "2.005";
+$VERSION = "2.006";
 
 @ISA = qw(Exporter DynaLoader);
 @EXPORT =  qw();
@@ -767,6 +771,22 @@ SV *sv;
 #   define get_hv(name,create) perl_get_hv(name,create)
 #endif
 
+#ifndef call_argv
+#   define call_argv perl_call_argv
+#endif
+
+#ifndef call_method
+#   define call_method perl_call_method
+#endif
+
+#ifndef call_pv
+#   define call_pv perl_call_pv
+#endif
+
+#ifndef call_sv
+#   define call_sv perl_call_sv
+#endif
+
 #ifndef PERL_SCAN_GREATER_THAN_UV_MAX
 #   define PERL_SCAN_GREATER_THAN_UV_MAX 0x02
 #endif
@@ -783,7 +803,7 @@ SV *sv;
 #   define PERL_SCAN_DISALLOW_PREFIX 0x02
 #endif
 
-#if (PERL_VERSION > 6)
+#if (PERL_VERSION >= 6)
 #define I32_CAST
 #else
 #define I32_CAST (I32*)

diff --git a/ext/Devel/PPPort/t/test.t b/ext/Devel/PPPort/t/test.t
index 5c7ec05..de9cc88 100644 (file)
--- a/ext/Devel/PPPort/t/test.t
+++ b/ext/Devel/PPPort/t/test.t
@@ -95,6 +95,11 @@ SAVE_DEFSV
 PERL_UNUSED_DECL
 dNOOP
 
+call_argv
+call_method
+call_pv
+call_sv
+
 get_cv
 get_av
 get_hv