Permalink
Browse files

updated BSD derivative list

  • Loading branch information...
1 parent 41a4ef1 commit 8f5be48c3a645e87c0d31e9d0d512f143863f405 @barbie committed Jun 5, 2012
Showing with 14 additions and 5 deletions.
  1. +3 −0 Changes
  2. +8 −2 lib/Devel/Platform/Info.pm
  3. +3 −3 lib/Devel/Platform/Info/BSD.pm
View
@@ -1,6 +1,9 @@
Revision history for Perl library Devel-Platform-Info
=====================================================
+0.10 current
+ - updated BSD derivative list.
+
0.09 25/05/2011
- remove trailing newlines from Mac command results (JJ)
View
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '0.09';
+$VERSION = '0.10';
#----------------------------------------------------------------------------
@@ -13,7 +13,11 @@ my %map = (
'freebsd' => 'BSD',
'openbsd' => 'BSD',
'netbsd' => 'BSD',
+ 'mirbsd' => 'BSD',
+ 'dragonfly' => 'BSD',
+
'irix' => 'Irix',
+
'linux' => 'Linux',
'aix' => 'Linux',
'bsdos' => 'Linux',
@@ -26,9 +30,11 @@ my %map = (
'unicosmk' => 'Linux',
'sunos' => 'Linux',
'ultrix' => 'Linux',
+
'sco_sv' => 'SCO',
'sco3' => 'SCO',
'sco' => 'SCO',
+
'solaris' => 'Solaris',
# Windows family OSes
@@ -174,7 +180,7 @@ RT Queue: http://rt.cpan.org/Public/Dist/Display.html?Name=Devel-Platform-Info
=head1 COPYRIGHT & LICENSE
- Copyright (C) 2010-2011 Birmingham Perl Mongers
+ Copyright (C) 2010-2012 Birmingham Perl Mongers
This module is free software; you can redistribute it and/or
modify it under the Artistic License 2.0.
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '0.09';
+$VERSION = '0.10';
#----------------------------------------------------------------------------
@@ -33,7 +33,7 @@ sub get_info {
for my $cmd (keys %commands) {
$self->{cmds}{$cmd} = `$commands{$cmd} 2>/dev/null`;
$self->{cmds}{$cmd} =~ s/\s+$//s;
- $self->{info}{$cmd} = $self->{cmds}{$cmd} if($cmd =~ /^[^_]/);
+ $self->{info}{$cmd} = $self->{cmds}{$cmd} if($cmd !~ /^_/);
}
$self->{info}{osflag} = $^O;
@@ -139,7 +139,7 @@ RT Queue: http://rt.cpan.org/Public/Dist/Display.html?Name=Devel-Platform-Info
=head1 COPYRIGHT & LICENSE
- Copyright (C) 2010-2011 Birmingham Perl Mongers
+ Copyright (C) 2010-2012 Birmingham Perl Mongers
This module is free software; you can redistribute it and/or
modify it under the Artistic License 2.0.

0 comments on commit 8f5be48

Please sign in to comment.