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

[dougm]

dougm       01/04/06 14:31:59

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  make sure this value is initialized (thanks to brian millet)
  
  Revision  Changes    Path
  1.5       +1 -1      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.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- WrapXS.pm 2001/04/04 17:12:07     1.4
  +++ WrapXS.pm 2001/04/06 21:31:58     1.5
  @@ -367,7 +367,7 @@
           print $fh qq{\#include "$_"\n\n};
       }
   
  -    my $last_prefix;
  +    my $last_prefix = "";
   
       for my $func (@$functions) {
           my $class = $func->{class};