In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/14731ad1b39d44be8354a1cdd95deb70f2203fa7?hp=79968a97de99437ff479c8104c6b81884a41d694>
- Log ----------------------------------------------------------------- commit 14731ad1b39d44be8354a1cdd95deb70f2203fa7 Author: David Golden <[email protected]> Date: Wed Mar 20 17:14:21 2013 -0400 update Perl::OSType from 1.002 to 1.003 ----------------------------------------------------------------------- Summary of changes: MANIFEST | 1 - Porting/Maintainers.pl | 4 +- cpan/Perl-OSType/lib/Perl/OSType.pm | 57 +++++++++++++++++++++++----------- cpan/Perl-OSType/t/00-compile.t | 53 -------------------------------- cpan/Perl-OSType/t/OSType.t | 2 +- pod/perldelta.pod | 6 ++++ 6 files changed, 47 insertions(+), 76 deletions(-) delete mode 100644 cpan/Perl-OSType/t/00-compile.t diff --git a/MANIFEST b/MANIFEST index cc33037..8082cb0 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1925,7 +1925,6 @@ cpan/perlfaq/lib/perlglossary.pod Perl Glossary cpan/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm PerlIO::via::QuotedPrint cpan/PerlIO-via-QuotedPrint/t/QuotedPrint.t PerlIO::via::QuotedPrint cpan/Perl-OSType/lib/Perl/OSType.pm Perl::OSType -cpan/Perl-OSType/t/00-compile.t Perl::OSType cpan/Perl-OSType/t/OSType.t Perl::OSType cpan/Pod-Checker/lib/Pod/Checker.pm cpan/Pod-Checker/scripts/podchecker.PL diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index ecb0417..0f3e31c 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1461,9 +1461,9 @@ use File::Glob qw(:case); 'Perl::OSType' => { 'MAINTAINER' => 'dagolden', - 'DISTRIBUTION' => 'DAGOLDEN/Perl-OSType-1.002.tar.gz', + 'DISTRIBUTION' => 'DAGOLDEN/Perl-OSType-1.003.tar.gz', 'FILES' => q[cpan/Perl-OSType], - 'EXCLUDED' => [qr/^xt/], + 'EXCLUDED' => [qr/^xt/, qr{^t/00-}], 'UPSTREAM' => 'cpan', }, diff --git a/cpan/Perl-OSType/lib/Perl/OSType.pm b/cpan/Perl-OSType/lib/Perl/OSType.pm index 6c2cf12..a79426d 100644 --- a/cpan/Perl-OSType/lib/Perl/OSType.pm +++ b/cpan/Perl-OSType/lib/Perl/OSType.pm @@ -1,18 +1,8 @@ -# -# This file is part of Perl-OSType -# -# This software is copyright (c) 2010 by David Golden. -# -# This is free software; you can redistribute it and/or modify it under -# the same terms as the Perl 5 programming language system itself. -# use strict; use warnings; package Perl::OSType; -BEGIN { - $Perl::OSType::VERSION = '1.002'; -} # ABSTRACT: Map Perl operating system names to generic types +our $VERSION = '1.003'; # VERSION require Exporter; our @ISA = qw(Exporter); @@ -71,7 +61,7 @@ my %OSTYPES = qw( MacOS MacOS VMS VMS - VOS VOS + vos VOS riscos RiscOS amigaos Amiga mpeix MPEiX @@ -92,6 +82,7 @@ sub is_os_type { 1; +__END__ =pod @@ -101,7 +92,7 @@ Perl::OSType - Map Perl operating system names to generic types =head1 VERSION -version 1.002 +version 1.003 =head1 SYNOPSIS @@ -155,20 +146,48 @@ L<Devel::CheckOS> =back +=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan + +=head1 SUPPORT + +=head2 Bugs / Feature Requests + +Please report any bugs or feature requests through the issue tracker +at L<https://github.com/dagolden/perl-ostype/issues>. +You will be notified automatically of any progress on your issue. + +=head2 Source Code + +This is open source software. The code repository is available for +public review and contribution under the terms of the license. + +L<https://github.com/dagolden/perl-ostype> + + git clone git://github.com/dagolden/perl-ostype.git + =head1 AUTHOR David Golden <[email protected]> -=head1 COPYRIGHT AND LICENSE +=head1 CONTRIBUTORS -This software is copyright (c) 2010 by David Golden. +=over 4 -This is free software; you can redistribute it and/or modify it under -the same terms as the Perl 5 programming language system itself. +=item * -=cut +Jonas B. Nielsen <[email protected]> +=item * -__END__ +Paul Green <[email protected]> +=back +=head1 COPYRIGHT AND LICENSE + +This software is copyright (c) 2013 by David Golden. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut diff --git a/cpan/Perl-OSType/t/00-compile.t b/cpan/Perl-OSType/t/00-compile.t deleted file mode 100644 index 08e832b..0000000 --- a/cpan/Perl-OSType/t/00-compile.t +++ /dev/null @@ -1,53 +0,0 @@ -#!perl -# -# This file is part of Perl-OSType -# -# This software is copyright (c) 2010 by David Golden. -# -# This is free software; you can redistribute it and/or modify it under -# the same terms as the Perl 5 programming language system itself. -# - -use strict; -use warnings; - -use Test::More; -use File::Find; -use File::Temp qw{ tempdir }; - -my @modules; -find( - sub { - return if $File::Find::name !~ /\.pm\z/; - my $found = $File::Find::name; - $found =~ s{^lib/}{}; - $found =~ s{[/\\]}{::}g; - $found =~ s/\.pm$//; - # nothing to skip - push @modules, $found; - }, - 'lib', -); - -my @scripts = glob "bin/*"; - -my $plan = scalar(@modules) + scalar(@scripts); -$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run"); - -{ - # fake home for cpan-testers - local $ENV{HOME} = tempdir( CLEANUP => 1 ); - - like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" ) - for sort @modules; - - SKIP: { - eval "use Test::Script 1.05; 1;"; - skip "Test::Script needed to test script compilation", scalar(@scripts) if $@; - foreach my $file ( @scripts ) { - my $script = $file; - $script =~ s!.*/!!; - script_compiles( $file, "$script script compiles" ); - } - } -} diff --git a/cpan/Perl-OSType/t/OSType.t b/cpan/Perl-OSType/t/OSType.t index d471f9c..46cca76 100644 --- a/cpan/Perl-OSType/t/OSType.t +++ b/cpan/Perl-OSType/t/OSType.t @@ -61,7 +61,7 @@ can_ok( $test_pkg, @functions ); is(is_os_type('Unix', NON_EXISTENT_OS), '', "$fcn: non-existent OS is false"); - local $^O = 'VOS'; + local $^O = 'vos'; ok( ! is_os_type( 'Unix' ), "$fcn: false" ); ok( is_os_type( 'VOS' ), "$fcn: true" ); ok( ! is_os_type(), "$fcn: false if no type provided" ); diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 1aa1135..2c964dd 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -115,6 +115,12 @@ This reverts (for now) a change in 1.14 whereby the "too few iterations" message became a warning on STDERR instead of being output on STDOUT. It's now on STDOUT again. +=item * + +L<Perl::OSType> has been upgraded from version 1.002 to 1.003. + +This fixes a bug detecting the VOS operating system. + =back =head2 Removed Modules and Pragmata -- Perl5 Master Repository
