r52864 - in /trunk/libfcgi-perl: ChangeLog FCGI.PL FCGI.XL MANIFEST META.yml debian/changelog debian/control os_unix.c version.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Feb 15 23:52:54 UTC 2010
Author: jawnsy-guest
Date: Mon Feb 15 23:52:49 2010
New Revision: 52864
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52864
Log:
* New upstream release
* Standards-Version 3.8.4 (no changes)
Modified:
trunk/libfcgi-perl/ChangeLog
trunk/libfcgi-perl/FCGI.PL
trunk/libfcgi-perl/FCGI.XL
trunk/libfcgi-perl/MANIFEST
trunk/libfcgi-perl/META.yml
trunk/libfcgi-perl/debian/changelog
trunk/libfcgi-perl/debian/control
trunk/libfcgi-perl/os_unix.c
trunk/libfcgi-perl/version.pm
Modified: trunk/libfcgi-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/ChangeLog?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/ChangeLog (original)
+++ trunk/libfcgi-perl/ChangeLog Mon Feb 15 23:52:49 2010
@@ -1,3 +1,19 @@
+Version 0.69 -- 15 Feb 2010 <mst at shadowcat.co.uk> Matt S Trout
+ o No changes since the previous development release.
+
+Version 0.68_02 -- 13 Jan 2010 <mst at shadowcat.co.uk> Matt S Trout
+ o Make the PRINT method return a boolean value rather than the
+ number of bytes written, previous patch was incorrect.
+
+Version 0.68_01 -- 10 Jan 2010 <mst at shadowcat.co.uk> Matt S Trout
+ o Force signal handler installation so that we correctly install handlers
+ for SIGPIPE. Fixes RT#5100 <bobtfish at bobtfish.net>
+ o Make the PRINT method return the number of bytes written rather than
+ undef to be consistent with the IO:: interface. Fixes RT#24347
+ <David Dick>
+ o Fix UTF-8 double encoding when FCGI is passed octets by downgrading
+ them into bytes correctly. Fixes RT#52400 <chansen at cpan.org>
+
Version 0.68 -- 31 Dec 2009 <mst at shadowcat.co.uk> Matt S Trout
o No changes since the previous development release.
Modified: trunk/libfcgi-perl/FCGI.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/FCGI.PL?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/FCGI.PL (original)
+++ trunk/libfcgi-perl/FCGI.PL Mon Feb 15 23:52:49 2010
@@ -262,8 +262,9 @@
sub PRINT {
my ($stream) = shift;
for (@_) {
- $stream->{src}->write($stream->{type}, $_, length($_));
- }
+ $stream->{src}->write($stream->{type}, $_, length($_));
+ }
+ return 1;
}
sub CLOSE {
Modified: trunk/libfcgi-perl/FCGI.XL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/FCGI.XL?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/FCGI.XL (original)
+++ trunk/libfcgi-perl/FCGI.XL Mon Feb 15 23:52:49 2010
@@ -533,21 +533,31 @@
#ifndef USE_SFIO
-void
+SV *
PRINT(stream, ...)
FCGI::Stream stream;
PREINIT:
- int n;
+ int n;
+ STRLEN len;
+ register char *str;
+ bool ok = TRUE;
CODE:
- for (n = 1; n < items; ++n) {
- STRLEN len;
- register char *tmps = (char *)SvPV(ST(n),len);
- FCGX_PutStr(tmps, len, stream);
- }
- if (SvTRUEx(perl_get_sv("|", FALSE)))
- FCGX_FFlush(stream);
+ for (n = 1; ok && n < items; ++n) {
+#ifdef DO_UTF8
+ if (DO_UTF8(ST(n)) && !sv_utf8_downgrade(ST(n), 1))
+ croak("Wide character in FCGI::Stream::PRINT");
+#endif
+ str = (char *)SvPV(ST(n),len);
+ if (FCGX_PutStr(str, len, stream) < 0)
+ ok = FALSE;
+ }
+
+ if (ok && SvTRUEx(perl_get_sv("|", FALSE)) && FCGX_FFlush(stream) < 0)
+ ok = FALSE;
+
+ RETVAL = ok ? &PL_sv_yes : &PL_sv_undef;
int
WRITE(stream, bufsv, len, ...)
@@ -563,6 +573,10 @@
CODE:
offset = (items == 4) ? (int)SvIV(ST(3)) : 0;
+#ifdef DO_UTF8
+ if (DO_UTF8(bufsv) && !sv_utf8_downgrade(bufsv, 1))
+ croak("Wide character in FCGI::Stream::WRITE");
+#endif
buf = SvPV(bufsv, blen);
if (offset < 0) offset += blen;
if (len > blen - offset)
@@ -572,7 +586,7 @@
ST(0) = &PL_sv_undef;
else {
ST(0) = sv_newmortal();
- sv_setpvf(ST(0), "%c", n);
+ sv_setiv(ST(0), n);
}
int
@@ -587,6 +601,10 @@
CODE:
offset = (items == 4) ? (int)SvIV(ST(3)) : 0;
+#ifdef DO_UTF8
+ if (DO_UTF8(bufsv) && !sv_utf8_downgrade(bufsv, 1))
+ croak("Wide character in FCGI::Stream::READ");
+#endif
if (! SvOK(bufsv))
sv_setpvn(bufsv, "", 0);
buf = SvGROW(bufsv, len+offset+1);
Modified: trunk/libfcgi-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/MANIFEST?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/MANIFEST (original)
+++ trunk/libfcgi-perl/MANIFEST Mon Feb 15 23:52:49 2010
@@ -15,7 +15,7 @@
typemap
version.pm
META.yml Module meta-data (added by MakeMaker)
--e LICENSE.TERMS
+LICENSE.TERMS
fcgiapp.c
os_unix.c
os_win32.c
Modified: trunk/libfcgi-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/META.yml?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/META.yml (original)
+++ trunk/libfcgi-perl/META.yml Mon Feb 15 23:52:49 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: FCGI
-version: 0.68
+version: 0.69
abstract: Fast CGI module
author:
- Sven Verdoolaege (skimo at kotnet.org)
Modified: trunk/libfcgi-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/debian/changelog?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/debian/changelog (original)
+++ trunk/libfcgi-perl/debian/changelog Mon Feb 15 23:52:49 2010
@@ -1,3 +1,10 @@
+libfcgi-perl (0.69-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Standards-Version 3.8.4 (no changes)
+
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 15 Feb 2010 19:11:39 -0500
+
libfcgi-perl (0.68-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libfcgi-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/debian/control?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/debian/control (original)
+++ trunk/libfcgi-perl/debian/control Mon Feb 15 23:52:49 2010
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 7.3.7), quilt (>= 0.46-7), perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ansgar Burchardt <ansgar at 43-1.org>, Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/FCGI/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libfcgi-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libfcgi-perl/
Modified: trunk/libfcgi-perl/os_unix.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/os_unix.c?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/os_unix.c (original)
+++ trunk/libfcgi-perl/os_unix.c Mon Feb 15 23:52:49 2010
@@ -181,7 +181,7 @@
FD_ZERO(&readFdSetPost);
FD_ZERO(&writeFdSetPost);
- OS_InstallSignalHandlers(FALSE);
+ OS_InstallSignalHandlers(TRUE);
libInitialized = TRUE;
Modified: trunk/libfcgi-perl/version.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfcgi-perl/version.pm?rev=52864&op=diff
==============================================================================
--- trunk/libfcgi-perl/version.pm (original)
+++ trunk/libfcgi-perl/version.pm Mon Feb 15 23:52:49 2010
@@ -1,3 +1,3 @@
package FCGI;
-$VERSION = '0.68';
+$VERSION = '0.69';
More information about the Pkg-perl-cvs-commits
mailing list