You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/04/06 23:31:59 UTC
cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
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};