diff options
| author | Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de> | 2003-09-08 10:56:09 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-08 08:09:27 +0000 |
| commit | e78280eef1d4944b27f03bb7d23ac12692f542fe (patch) | |
| tree | 92027857df2301fd6ab1e0bef9b33cfffa9b4ead /ext/Devel | |
| parent | b5a808db3c007cbb4159178941346ac3c6f968a7 (diff) | |
| download | perl-e78280eef1d4944b27f03bb7d23ac12692f542fe.tar.gz | |
call_(pv|etc.) for Devel::PPPort
Message-id: <20030908065609.GA1260@ethan>
p4raw-id: //depot/perl@21074
Diffstat (limited to 'ext/Devel')
| -rwxr-xr-x | ext/Devel/PPPort/Changes | 5 | ||||
| -rw-r--r-- | ext/Devel/PPPort/PPPort.pm | 24 | ||||
| -rw-r--r-- | ext/Devel/PPPort/t/test.t | 5 |
3 files changed, 32 insertions, 2 deletions
diff --git a/ext/Devel/PPPort/Changes b/ext/Devel/PPPort/Changes index 9d91f708f3..5c5ea4e884 100755 --- 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 965e268cd8..3fbd76cc86 100644 --- 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 5c7ec05561..de9cc88069 100644 --- 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 |