updated BSD derivative list

barbie · Jun 5, 2012 · 8f5be48 · 8f5be48
1 parent 41a4ef1
commit 8f5be48
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 5 deletions.
diff --git a/Changes b/Changes
@@ -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)
 

diff --git a/lib/Devel/Platform/Info.pm b/lib/Devel/Platform/Info.pm
@@ -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.

diff --git a/lib/Devel/Platform/Info/BSD.pm b/lib/Devel/Platform/Info/BSD.pm
@@ -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.