burak / CPAN-Sys-Info-Driver-Unknown / changeset / c75d4640f85e

@@ -5,6 +5,8 @@ use Build;
 my $mb = Build->new;
 $mb->change_versions(1);
 $mb->copyright_first_year( '2006' );
 $mb->add_pod_author_copyright_license(1);
 $mb->create_build_script;
 ;

@@ -2,7 +2,7 @@ Revision history for Perl extension Sys:
 Time zone is GMT+2.
-.73 Sun Jun  7 03:10:27 2009
+.73 Fri Dec  4 04:25:35 2009
     => Support new uname().
 .72 Thu Apr 23 16:59:18 2009

-…
 LICENSE
 This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself, either Perl version 5.10.0 or,
+it under the same terms as Perl itself, either Perl version 5.10.1 or,
 at your option, any later version of Perl 5 you may have available.

+{
     module_name    => 'Sys::Info::Driver::Unknown',
     requires       => {
-        'Sys::Info::Base' => '0.72',
+        'Sys::Info::Base' => '0.73',
         ( $] < 5.006 ? ( 'warnings::compat' => 0 ) : ()),
     },
     build_requires => {

@@ -25,18 +25,4 @@ This is the main module in the C<Unknown
 None.
 =head1 AUTHOR
 =head1 COPYRIGHT
 =head1 LICENSE
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.10.0 or,
 at your option, any later version of Perl 5 you may have available.
 =cut

@@ -25,18 +25,4 @@ Base class for Unknown device drivers.
 None.
 =head1 AUTHOR
 =head1 COPYRIGHT
 =head1 LICENSE
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.10.0 or,
 at your option, any later version of Perl 5 you may have available.
 =cut

@@ -13,7 +13,7 @@ BEGIN {
         require Unix::Processors;
         Unix::Processors->import;
     };
-    $UP = Unix::Processors->new if ! $@;
+    $UP = Unix::Processors->new if ! $@ && $eok;
+}
 sub load    {}
@@ -77,18 +77,4 @@ See bitness in L<Sys::Info::Device::CPU>
 L<Sys::Info>, L<Sys::Info::CPU>, L<Unix::Processors>.
 =head1 AUTHOR
 =head1 COPYRIGHT
 =head1 LICENSE
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.10.0 or,
 at your option, any later version of Perl 5 you may have available.
 =cut

@@ -2,6 +2,7 @@ package Sys::Info::Driver::Unknown::Devi
 use strict;
 use warnings;
 use vars qw( $VERSION );
 use constant RE_VENDOR => qr/(.+?), \s (?:Genuine(Intel)|Authentic(AMD))/xms;
 $VERSION = '0.70';
@@ -11,15 +12,15 @@ sub identify {
     my $self = shift;
     if ( ! $self->{META_DATA} ) {
-        $self->_INSTALL() if not $INSTALLED;
+        $self->_INSTALL() if ! $INSTALLED;
-        if ( not $CPU{id} ) {
+        if ( ! $CPU{id} ) {
             $self->{META_DATA} = []; # fake
             return;
+        }
         my($cpu, $count, @cpu);
-        if ($CPU{id} =~ /(.+?), \s (?:Genuine(Intel)|Authentic(AMD))/xms ) {
+        if ($CPU{id} =~ RE_VENDOR ) {
             my $cid  = $1;
             my $corp = $2 || $3;
             if ( my %info = $self->_parse( $cid ) ) {
@@ -38,7 +39,7 @@ sub identify {
+            }
+        }
-        $count = 1 if not $count;
+        $count = 1 if !$count;
         for ( 1..$count ) {
             push @cpu, {
                 architecture  => ($CPU{id} =~ m{ \A (.+?) \s? Family }xmsi),
@@ -305,18 +306,4 @@ L<Sys::Info>,
 L<http://www.sandpile.org/>,
 L<http://www.paradicesoftware.com/specs/cpuid/index.htm>.
 =head1 AUTHOR
 =head1 COPYRIGHT
 =head1 LICENSE
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.10.0 or,
 at your option, any later version of Perl 5 you may have available.
 =cut

@@ -16,7 +16,7 @@ BEGIN {
+                 ;
     *domain_name = *edition
                  = *logon_server
-                 = sub {   }
+                 = sub {}
+                 ;
+}
@@ -150,18 +150,4 @@ Please see L<Sys::Info::OS> for definiti
 L<Sys::Info>, L<Sys::Info::OS>.
 =head1 AUTHOR
 =head1 COPYRIGHT
 =head1 LICENSE
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself, either Perl version 5.10.0 or,
 at your option, any later version of Perl 5 you may have available.
 =cut

 #!/usr/bin/env perl -w
 use strict;
 use warnings;
 ## no critic (Variables::RequireLocalizedPunctuationVars)
 BEGIN { $^O = 'SomeFakeValue' }
 use Test::Sys::Info;