summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Perl/OSType.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Perl/OSType.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Perl/OSType.pm50
1 files changed, 32 insertions, 18 deletions
diff --git a/Master/tlpkg/tlperl/lib/Perl/OSType.pm b/Master/tlpkg/tlperl/lib/Perl/OSType.pm
index a79426d56c2..e6196c46d61 100644
--- a/Master/tlpkg/tlperl/lib/Perl/OSType.pm
+++ b/Master/tlpkg/tlperl/lib/Perl/OSType.pm
@@ -1,15 +1,14 @@
use strict;
use warnings;
+
package Perl::OSType;
# ABSTRACT: Map Perl operating system names to generic types
-our $VERSION = '1.003'; # VERSION
+our $VERSION = '1.007'; # VERSION
require Exporter;
our @ISA = qw(Exporter);
-our %EXPORT_TAGS = (
- all => [ qw( os_type is_os_type ) ]
-);
+our %EXPORT_TAGS = ( all => [qw( os_type is_os_type )] );
our @EXPORT_OK = @{ $EXPORT_TAGS{all} };
@@ -18,6 +17,7 @@ my %OSTYPES = qw(
aix Unix
bsdos Unix
beos Unix
+ bitrig Unix
dgux Unix
dragonfly Unix
dynixptx Unix
@@ -50,6 +50,7 @@ my %OSTYPES = qw(
gnukfreebsd Unix
nto Unix
qnx Unix
+ android Unix
dos Windows
MSWin32 Windows
@@ -68,31 +69,31 @@ my %OSTYPES = qw(
);
sub os_type {
- my ($os) = @_;
- $os = $^O unless defined $os;
- return $OSTYPES{ $os } || q{};
+ my ($os) = @_;
+ $os = $^O unless defined $os;
+ return $OSTYPES{$os} || q{};
}
sub is_os_type {
- my ($type, $os) = @_;
- return unless $type;
- $os = $^O unless defined $os;
- return os_type($os) eq $type;
+ my ( $type, $os ) = @_;
+ return unless $type;
+ $os = $^O unless defined $os;
+ return os_type($os) eq $type;
}
1;
-__END__
-
=pod
+=encoding UTF-8
+
=head1 NAME
Perl::OSType - Map Perl operating system names to generic types
=head1 VERSION
-version 1.003
+version 1.007
=head1 SYNOPSIS
@@ -153,7 +154,7 @@ L<Devel::CheckOS>
=head2 Bugs / Feature Requests
Please report any bugs or feature requests through the issue tracker
-at L<https://github.com/dagolden/perl-ostype/issues>.
+at L<https://github.com/dagolden/Perl-OSType/issues>.
You will be notified automatically of any progress on your issue.
=head2 Source Code
@@ -161,9 +162,9 @@ You will be notified automatically of any progress on your issue.
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>
+L<https://github.com/dagolden/Perl-OSType>
- git clone git://github.com/dagolden/perl-ostype.git
+ git clone https://github.com/dagolden/Perl-OSType.git
=head1 AUTHOR
@@ -179,15 +180,28 @@ Jonas B. Nielsen <jonasbn@hoarfrost.local>
=item *
+Owain G. Ainsworth <oga@nicotinebsd.org>
+
+=item *
+
Paul Green <Paul.Green@stratus.com>
+=item *
+
+Piotr Roszatycki <piotr.roszatycki@gmail.com>
+
=back
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by David Golden.
+This software is copyright (c) 2014 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
+
+__END__
+
+
+# vim: ts=4 sts=4 sw=4 et: