[iperl commit] r163 - in trunk: . lib/Shell t

[codesite...@google.com]

Author: a.r.ferreira
Date: Sat Oct 25 06:00:52 2008
New Revision: 163

Modified:
trunk/Changes
trunk/TODO (contents, props changed)
trunk/lib/Shell/Perl.pm
trunk/t/11version.t

Log:
fix t/11version.t after IPC::Cmd 0.41_04

Modified: trunk/Changes
==============================================================================
--- trunk/Changes (original)
+++ trunk/Changes Sat Oct 25 06:00:52 2008
@@ -1,5 +1,12 @@
Revision history for Perl extension Shell::Perl.

+0.018 Oct 25, 2008
+ - fix t/11version.t to deal with IPC::Cmd $err
+ as an error message (undef on success) rather
+ than an error code (0 on success)
+ [Thanks, Andreas, for spotting that]
+ http://rt.cpan.org/Ticket/Display.html?id=40157
+
0.017 Mar 9, 2008
- assume this is not supposed to work for Perls
under 5.6.0

Modified: trunk/TODO
==============================================================================
--- trunk/TODO (original)
+++ trunk/TODO Sat Oct 25 06:00:52 2008
@@ -1,10 +1,11 @@
-
-* complete the docs wrt Data::Dump::Streamer
-* write a test for dumpers
-
-* report loaded modules (like it is done with YAML)
-* report the dumper in effect (at startup and when using :set)
-
-* dumpers should be configurable some way
- - for example, deparsing is not always good or desirable
-
+
+* complete the docs wrt Data::Dump::Streamer
+* write a test for dumpers
+
+* report loaded modules (like it is done with YAML)
+* report the dumper in effect (at startup and when using :set)
+
+* dumpers should be configurable some way
+ - for example, deparsing is not always good or desirable
+
+* implement :use command

Modified: trunk/lib/Shell/Perl.pm
==============================================================================
--- trunk/lib/Shell/Perl.pm (original)
+++ trunk/lib/Shell/Perl.pm Sat Oct 25 06:00:52 2008
@@ -8,7 +8,7 @@
# /Id: Perl.pm 1131 2007-01-27 17:43:35Z me / # don't erase that for now
# $Id$

-our $VERSION = '0.0017';
+our $VERSION = '0.0018';

use base qw(Class::Accessor); # soon use base qw(Shell::Base);
Shell::Perl->mk_accessors(qw( out_type dumper context package term
ornaments )); # XXX use_strict

Modified: trunk/t/11version.t
==============================================================================
--- trunk/t/11version.t (original)
+++ trunk/t/11version.t Sat Oct 25 06:00:52 2008
@@ -9,7 +9,7 @@
for my $switch ( '-v', '--version' ) {
my ( $ok, $err, $full_buf, $out_buf, $err_buf ) = run( command => [
@pirl, $switch ] );
ok( $ok, "'pirl $switch' run ok" );
- is( $err, 0, 'exited with 0' );
+ ok( !$err, 'no error');
cmp_deeply( $out_buf, [ re(qr/\AThis is pirl/) ], 'printed version
info' );
cmp_deeply( $err_buf, [], 'no output to STDERR' );
}