diff options
author | David Golden <dagolden@cpan.org> | 2013-03-20 17:14:21 -0400 |
---|---|---|
committer | David Golden <dagolden@cpan.org> | 2013-03-20 17:16:25 -0400 |
commit | 14731ad1b39d44be8354a1cdd95deb70f2203fa7 (patch) | |
tree | 53938399d00f61becb4a34852cb31f1669d236a0 /cpan | |
parent | 79968a97de99437ff479c8104c6b81884a41d694 (diff) | |
download | perl-14731ad1b39d44be8354a1cdd95deb70f2203fa7.tar.gz |
update Perl::OSType from 1.002 to 1.003
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/Perl-OSType/lib/Perl/OSType.pm | 57 | ||||
-rw-r--r-- | cpan/Perl-OSType/t/00-compile.t | 53 | ||||
-rw-r--r-- | cpan/Perl-OSType/t/OSType.t | 2 |
3 files changed, 39 insertions, 73 deletions
diff --git a/cpan/Perl-OSType/lib/Perl/OSType.pm b/cpan/Perl-OSType/lib/Perl/OSType.pm index 6c2cf127e9..a79426d56c 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 <dagolden@cpan.org> -=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 <jonasbn@hoarfrost.local> +=item * -__END__ +Paul Green <Paul.Green@stratus.com> +=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 08e832b092..0000000000 --- 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 d471f9c5fe..46cca76854 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" ); |