LICENSE @@ -66,3 +66,5 @@ Revision history for Perl extension IPC::System::Simple. indicate that any exit value is acceptable from a process. - Added author-only Perl::Critic tests. - Updated diagnostics section in POD. + - License changed to that of Perl 5.6.0, or any later version. + - LICENSE file added to distribution. Changes @@ -1,6 +1,7 @@ Changes Makefile.PL MANIFEST +LICENSE README lib/IPC/System/Simple.pm t/01_load.t MANIFEST @@ -315,7 +315,7 @@ sub _process_child_error { } - croak sprintf(FAIL_INTERNAL, qq{'$command' ran without exit value or signal}; + croak sprintf(FAIL_INTERNAL, qq{'$command' ran without exit value or signal}); } @@ -658,7 +658,7 @@ Paul Fenwick E<lt>pjf@cpan.orgE<gt> Copyright (C) 2006-2008 by Paul Fenwick This library is free software; you can redistribute it and/or modify -it under the same terms as Perl itself, either Perl version 5.8.7 or, +it under the same terms as Perl itself, either Perl version 5.6.0 or, at your option, any later version of Perl 5 you may have available. =cut lib/IPC/System/Simple.pm @@ -1,6 +1,6 @@ #!/usr/bin/perl -w use strict; -use Test::More tests => 2; +use Test::More tests => 3; use IPC::System::Simple; # These tests are for testing internal subroutines, and may change @@ -16,3 +16,15 @@ eval { }; like($@,qr{unexpectedly returned exit value},"Failed exit"); + +SKIP: { + skip("Non-Win32 only", 1) if IPC::System::Simple::WINDOWS; + + # _spawn_or_die should croak on non-Windows systems. + + eval { + IPC::System::Simple::_spawn_or_die(); + }; + + like($@, qr{Internal error},"_spawn_or_die fails under non-Win32"); +}; t/internal.t 9b64c5188ed0acb9c66d44c0b813f8c73d5a21b1 Paul Fenwick pjf@perltraining.com.au http://github.com/pfenwick/ipc-system-simple/commit/ea83545b40551b12d4ddfa5a149fdba4d1ec5fac ea83545b40551b12d4ddfa5a149fdba4d1ec5fac 2008-05-11T23:43:12-07:00 2008-05-11T23:43:12-07:00 License 5.6.0. New license file. Syntax error fixed. Spawn-or-die test for non-Win32 systems. 599bafd3560ad95580b559a3b4767afd4e297510 Paul Fenwick pjf@perltraining.com.au