cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[dougm]

dougm       2002/06/11 09:27:57

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  be better prepared for GvUNIQUE support
  
  Revision  Changes    Path
  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 -0000      1.45
  +++ WrapXS.pm 11 Jun 2002 16:27:57 -0000      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;
           }
       }