Hello community,
here is the log from the commit of package perl-IO-Socket-SSL for
openSUSE:Factory checked in at 2011-11-02 12:14:23
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-IO-Socket-SSL (Old)
and /work/SRC/openSUSE:Factory/.perl-IO-Socket-SSL.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Socket-SSL", Maintainer is "vci...@suse.com"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-IO-Socket-SSL/perl-IO-Socket-SSL.changes
2011-10-27 14:29:59.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-IO-Socket-SSL.new/perl-IO-Socket-SSL.changes
2011-11-02 12:14:25.000000000 +0100
@@ -1,0 +2,7 @@
+Mon Oct 31 02:33:54 UTC 2011 - vci...@suse.com
+
+- update to 1.49
+- another regression for readline fix, this time it failed to return lines
+ at eof which don't end with newline. Extended t/readline.t to catch this
+
+-------------------------------------------------------------------
Old:
----
IO-Socket-SSL-1.48.tar.gz
New:
----
IO-Socket-SSL-1.49.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-IO-Socket-SSL.spec ++++++
--- /var/tmp/diff_new_pack.pefTZc/_old 2011-11-02 12:14:26.000000000 +0100
+++ /var/tmp/diff_new_pack.pefTZc/_new 2011-11-02 12:14:26.000000000 +0100
@@ -18,7 +18,7 @@
Name: perl-IO-Socket-SSL
-Version: 1.48
+Version: 1.49
Release: 1
License: GPL+ or Artistic
%define cpan_name IO-Socket-SSL
++++++ IO-Socket-SSL-1.48.tar.gz -> IO-Socket-SSL-1.49.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-SSL-1.48/Changes
new/IO-Socket-SSL-1.49/Changes
--- old/IO-Socket-SSL-1.48/Changes 2011-10-26 18:31:18.000000000 +0200
+++ new/IO-Socket-SSL-1.49/Changes 2011-10-28 10:07:06.000000000 +0200
@@ -1,4 +1,8 @@
-
+v1.49 2011.10.28
+- another regression for readline fix, this time it failed to return lines
+ at eof which don't end with newline. Extended t/readline.t to catch this
+ case and the fix for 1.48
+ Thanks to christoph[DOT]mallon[AT]gmx[DOT]de for reporting
v1.48 2011.10.26
- bugfix for readline fix in 1.45. If the pending data where false
(like '0') it failed to read rest of line.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-SSL-1.48/META.yml
new/IO-Socket-SSL-1.49/META.yml
--- old/IO-Socket-SSL-1.48/META.yml 2011-10-26 18:31:37.000000000 +0200
+++ new/IO-Socket-SSL-1.49/META.yml 2011-10-28 10:22:17.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: IO-Socket-SSL
-version: 1.48
+version: 1.49
abstract: Nearly transparent SSL encapsulation for IO::Socket::INET.
author:
- Steffen Ullrich & Peter Behroozi & Marko Asplund
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-SSL-1.48/SSL.pm
new/IO-Socket-SSL-1.49/SSL.pm
--- old/IO-Socket-SSL-1.48/SSL.pm 2011-10-26 18:31:18.000000000 +0200
+++ new/IO-Socket-SSL-1.49/SSL.pm 2011-10-28 10:13:14.000000000 +0200
@@ -78,7 +78,7 @@
}) {
@ISA = qw(IO::Socket::INET);
}
- $VERSION = '1.48';
+ $VERSION = '1.49';
$GLOBAL_CONTEXT_ARGS = {};
#Make $DEBUG another name for $Net::SSLeay::trace
@@ -815,7 +815,7 @@
$buf .= $pb
} else {
$self->blocking(0) if ! $was_blocking;
- return;
+ return $buf eq '' ? ():$buf;
};
if ( !$eod ) {
my $pos = index( $buf,$delim0 );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-SSL-1.48/t/readline.t
new/IO-Socket-SSL-1.49/t/readline.t
--- old/IO-Socket-SSL-1.48/t/readline.t 2009-01-22 22:44:47.000000000 +0100
+++ new/IO-Socket-SSL-1.49/t/readline.t 2011-10-28 10:02:11.000000000 +0200
@@ -91,6 +91,19 @@
},
];
+push @tests, [
+ [ "bla\n","0","blubb\n","no newline" ],
+ sub {
+ my $c = shift;
+ my $l = <$c>;
+ $l eq "bla\n" or die "'bla\\n' failed";
+ $l = <$c>;
+ $l eq "0blubb\n" or die "'0blubb\\n' failed";
+ $l = <$c>;
+ $l eq "no newline" or die "'no newline' failed";
+ },
+];
+
$|=1;
print "1..".(1+3*@tests)."\n";
@@ -126,7 +139,13 @@
exit;
};
ok( "Server accepted" );
- $to_client->print($test->[0]);
+ $to_client->autoflush;
+ my $t = $test->[0];
+ $t = [$t] if ! ref($t);
+ for(@$t) {
+ $to_client->print($_);
+ select(undef,undef,undef,0.1);
+ }
}
wait;
exit;
--
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
