dougm 2002/06/11 09:27:57
Modified:lib/ModPerl WrapXS.pm
Log:
be better prepared for GvUNIQUE support
Revision ChangesPath
1.46 +3 -3 modperl-2.0/lib/ModPerl/WrapXS.pm
Index: WrapXS.pm
===
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -r1.45 -r1.46
--- WrapXS.pm 29 May 2002 16:31:44 - 1.45
+++ WrapXS.pm 11 Jun 2002 16:27:57 - 1.46
-3,7 +3,7
use strict;
use warnings FATAL = 'all';
-use constant GvSHARED = 0; #$^V gt v5.7.0;
+use constant GvUNIQUE = 0; #$] = 5.008;
use Apache::TestTrace;
use Apache::Build ();
use ModPerl::Code ();
-409,7 +409,7
my($self, $name) = _;
my $str = ;
return $str if $name =~ /$notshared$/o;
-$str = ATTRS: shared\n if GvSHARED;
+$str = ATTRS: unique\n if GvUNIQUE;
$str;
}
-471,7 +471,7
if (my $newxs = $self-{newXS}-{$module}) {
for my $xs ($newxs) {
print $fh qq{ cv = newXS($xs-[0], $xs-[1], __FILE__);\n};
-print $fh qq{ GvSHARED_on(CvGV(cv));\n} if GvSHARED;
+print $fh qq{ GvUNIQUE_on(CvGV(cv));\n} if GvUNIQUE;
}
}