r50276 - in /trunk/libwx-perl-processstream-perl: Changes META.yml debian/changelog debian/control lib/Wx/Perl/ProcessStream.pm t/01-events.t
ryan at users.alioth.debian.org
ryan at users.alioth.debian.org
Tue Jan 5 18:41:19 UTC 2010
Author: ryan
Date: Tue Jan 5 18:41:13 2010
New Revision: 50276
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50276
Log:
* New upstream release
* Add myself to Uploaders
Modified:
trunk/libwx-perl-processstream-perl/Changes
trunk/libwx-perl-processstream-perl/META.yml
trunk/libwx-perl-processstream-perl/debian/changelog
trunk/libwx-perl-processstream-perl/debian/control
trunk/libwx-perl-processstream-perl/lib/Wx/Perl/ProcessStream.pm
trunk/libwx-perl-processstream-perl/t/01-events.t
Modified: trunk/libwx-perl-processstream-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-processstream-perl/Changes?rev=50276&op=diff
==============================================================================
--- trunk/libwx-perl-processstream-perl/Changes (original)
+++ trunk/libwx-perl-processstream-perl/Changes Tue Jan 5 18:41:13 2010
@@ -1,4 +1,10 @@
Revision history for Wx-Perl-ProcessStream
+
+0.24 2010-01-05 00:00
+ Added tests to confirm correct operation of 'print 0;'
+
+0.23 2010-01-04 00:00
+ Various test & failure fixes
0.21 2009-10-13 00:00
Fixed test failure on none Win32.
Modified: trunk/libwx-perl-processstream-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-processstream-perl/META.yml?rev=50276&op=diff
==============================================================================
--- trunk/libwx-perl-processstream-perl/META.yml (original)
+++ trunk/libwx-perl-processstream-perl/META.yml Tue Jan 5 18:41:13 2010
@@ -1,15 +1,23 @@
--- #YAML:1.0
-name: Wx-Perl-ProcessStream
-version: 0.22
-abstract: access IO of external processes via events
-license: ~
-author:
+name: Wx-Perl-ProcessStream
+version: 0.24
+abstract: access IO of external processes via events
+author:
- Mark Dootson <mdootson at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.42_01
-distribution_type: module
-requires:
- Time::HiRes: 1.2
- Wx: 0.5
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Time::HiRes: 1.2
+ Wx: 0.5
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libwx-perl-processstream-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-processstream-perl/debian/changelog?rev=50276&op=diff
==============================================================================
--- trunk/libwx-perl-processstream-perl/debian/changelog (original)
+++ trunk/libwx-perl-processstream-perl/debian/changelog Tue Jan 5 18:41:13 2010
@@ -1,3 +1,10 @@
+libwx-perl-processstream-perl (0.24-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders
+
+ -- Ryan Niebur <ryan at debian.org> Tue, 05 Jan 2010 10:41:05 -0800
+
libwx-perl-processstream-perl (0.22-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libwx-perl-processstream-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-processstream-perl/debian/control?rev=50276&op=diff
==============================================================================
--- trunk/libwx-perl-processstream-perl/debian/control (original)
+++ trunk/libwx-perl-processstream-perl/debian/control Tue Jan 5 18:41:13 2010
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 7.0.50)
Build-Depends-Indep: perl, libwx-perl (>= 0.5), xvfb, xauth, xfonts-base
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Damyan Ivanov <dmn at debian.org>
+Uploaders: Damyan Ivanov <dmn at debian.org>, Ryan Niebur <ryan at debian.org>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Wx-Perl-ProcessStream/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libwx-perl-processstream-perl/
Modified: trunk/libwx-perl-processstream-perl/lib/Wx/Perl/ProcessStream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-processstream-perl/lib/Wx/Perl/ProcessStream.pm?rev=50276&op=diff
==============================================================================
--- trunk/libwx-perl-processstream-perl/lib/Wx/Perl/ProcessStream.pm (original)
+++ trunk/libwx-perl-processstream-perl/lib/Wx/Perl/ProcessStream.pm Tue Jan 5 18:41:13 2010
@@ -11,7 +11,7 @@
package Wx::Perl::ProcessStream;
-our $VERSION = '0.22';
+our $VERSION = '0.24';
=head1 NAME
@@ -19,7 +19,7 @@
=head1 VERSION
-Version 0.22
+Version 0.24
=head1 SYNOPSYS
@@ -556,9 +556,7 @@
# STDERR
- my $linecounter = 100;
-
- while( ( my $linebuffer = $process->__read_error_line ) && $linecounter ){
+ while( ( my $linebuffer = $process->__read_error_line ) ){
$continueprocessloop ++;
$linedataread ++;
$linebuffer =~ s/(\r\n|\n)$//;
@@ -567,15 +565,12 @@
$event->SetLine( $linebuffer );
$event->SetProcess( $process );
$process->__get_handler()->AddPendingEvent($event);
- $linecounter --;
}
# STDOUT
- $linecounter = 100;
-
- while( ( my $linebuffer = $process->__read_input_line ) && $linecounter ){
+ while( ( my $linebuffer = $process->__read_input_line ) ){
$continueprocessloop ++;
$linedataread ++;
$linebuffer =~ s/(\r\n|\n)$//;
@@ -584,7 +579,6 @@
$event->SetLine( $linebuffer );
$event->SetProcess( $process );
$process->__get_handler()->AddPendingEvent($event);
- $linecounter --;
}
}
Modified: trunk/libwx-perl-processstream-perl/t/01-events.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwx-perl-processstream-perl/t/01-events.t?rev=50276&op=diff
==============================================================================
--- trunk/libwx-perl-processstream-perl/t/01-events.t (original)
+++ trunk/libwx-perl-processstream-perl/t/01-events.t Tue Jan 5 18:41:13 2010
@@ -3,7 +3,7 @@
package main;
use strict;
-use Test::More tests => 45 + $ENV{WXPPS_MULTITEST};
+use Test::More tests => 51 + $ENV{WXPPS_MULTITEST};
use lib 't';
use Wx;
use WxTesting qw( app_from_wxtesting_frame );
@@ -14,7 +14,7 @@
package ProcessStreamTestingFrame;
use strict;
use base qw(WxTesting::Frame);
-use Wx::Perl::ProcessStream 0.18 qw( :everything );
+use Wx::Perl::ProcessStream 0.24 qw( :everything );
use Test::More;
use Time::HiRes qw( sleep );
@@ -43,6 +43,29 @@
my $cmd;
my $process;
my $errs;
+
+ if($^O =~ /^MSWin/) {
+ $cmd = [ $perl, '-e', q("print 0, qq(\n);") ];
+ } else {
+ $cmd = [ $perl, '-e', q(print 0, qq(\n);) ];
+ }
+
+ {
+ $process = $self->start_process_a( $cmd );
+ ok( $process->IsAlive() );
+ $self->wait_for_test_complete();
+ is( $process->IsAlive(), 0 );
+ is( $self->{_stdout}->[0], '0' );
+ $errs = join('', @{ $self->{_stderr} });
+ $errs ||= '';
+ is( $errs, '' );
+ is( $self->{_exitcode}, 0 );
+ is( $process->GetExitCode() , 0 );
+ $process->Destroy;
+ $process = undef;
+ }
+
+
if($^O =~ /^MSWin/) {
$cmd = [ $perl, '-e', q("print 'HELLO WORLD', qq(\n);") ];
} else {
More information about the Pkg-perl-cvs-commits
mailing list