);
use strict;
-$VERSION = sprintf("%d.%02d", q$Revision: 1.2505 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.2506_00 $ =~ /(\d+)\.(\d+)/);
@ISA = qw(Exporter);
@EXPORT = qw(&xsinit &ldopts
}
}
-sub is_perl_object {
- $Config{ccflags} =~ /-DPERL_OBJECT/;
-}
-
sub xsinit {
my($file, $std, $mods) = @_;
my($fh,@mods,%seen);
$file ||= "perlxsi.c";
- my $xsinit_proto = "pTHXo";
+ my $xsinit_proto = "pTHX";
if (@_) {
@mods = @$mods if $mods;
sub xsi_protos {
my(@exts) = @_;
my(@retval,%seen);
- my $boot_proto = "pTHXo_ CV* cv";
+ my $boot_proto = "pTHX_ CV* cv";
foreach $_ (@exts){
my($pname) = canon('/', $_);
my($mname, $cname);