stas 2004/03/18 14:53:31
Modified: src/modules/perl modperl_perl_global.c
. Changes
Log:
Fix a bug in special blocks handling (like END), which until now was
dropping on the floor all blocks but the last one (mainly affecting
registry handlers).
Revision Changes Path
1.20 +1 -1 modperl-2.0/src/modules/perl/modperl_perl_global.c
Index: modperl_perl_global.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_perl_global.c,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -u -r1.19 -r1.20
--- modperl_perl_global.c 4 Mar 2004 06:01:07 -0000 1.19
+++ modperl_perl_global.c 18 Mar 2004 22:53:31 -0000 1.20
@@ -135,7 +135,7 @@
AvARRAY(av)[AvFILLp(av)--] = &PL_sv_undef;
/* push @{ $PL_modglobal{$key}{$package} }, $cv */
- av_store(mav, AvFILLp(av)+1, sv);
+ av_store(mav, AvFILLp(mav)+1, sv);
return 1;
}
1.349 +4 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.348
retrieving revision 1.349
diff -u -u -r1.348 -r1.349
--- Changes 16 Mar 2004 00:59:45 -0000 1.348
+++ Changes 18 Mar 2004 22:53:31 -0000 1.349
@@ -12,6 +12,10 @@
=item 1.99_14-dev
+Fix a bug in special blocks handling (like END), which until now was
+dropping on the floor all blocks but the last one (mainly affecting
+registry handlers). [Stas]
+
The filter streaming API print() function, now correctly handles a
binary data [Stas]
