burak / CPAN-Sys-Info-Driver-Unknown
Compatibility layer for Sys::Info (Perl)
Clone this repository (size: 42.3 KB): HTTPS / SSH
$ hg clone http://bitbucket.org/burak/cpan-sys-info-driver-unknown/
| commit 16: | 7c26c2c5c7bd |
| parent 15: | d21fcb2ee2eb |
| branch: | default |
fix bitness
12 months ago
Changed (Δ84 bytes):
raw changeset »
Changes (3 lines added, 0 lines removed)
lib/Sys/Info/Driver/Unknown.pm (1 lines added, 1 lines removed)
lib/Sys/Info/Driver/Unknown/OS.pm (2 lines added, 1 lines removed)
| … | … | @@ -2,6 +2,9 @@ Revision history for Perl extension Sys: |
2 |
2 |
|
3 |
3 |
Time zone is GMT+2. |
4 |
4 |
|
5 |
0.71 Mon Apr 6 14:02:20 2009 |
|
6 |
=> bitness was returning the object. |
|
7 |
||
5 |
8 |
0.70 Mon Apr 6 03:54:23 2009 |
6 |
9 |
=> Bump version for new stable release. |
7 |
10 |
Up to file-list lib/Sys/Info/Driver/Unknown.pm:
| … | … | @@ -2,7 +2,7 @@ package Sys::Info::Driver::Unknown; |
2 |
2 |
use strict; |
3 |
3 |
use vars qw( $VERSION ); |
4 |
4 |
|
5 |
$VERSION = '0.7 |
|
5 |
$VERSION = '0.71'; |
|
6 |
6 |
|
7 |
7 |
1; |
8 |
8 |
Up to file-list lib/Sys/Info/Driver/Unknown/OS.pm:
| … | … | @@ -4,7 +4,7 @@ use vars qw( $VERSION ); |
4 |
4 |
use POSIX (); |
5 |
5 |
use Sys::Info::Constants qw( :unknown ); |
6 |
6 |
|
7 |
$VERSION = '0.7 |
|
7 |
$VERSION = '0.71'; |
|
8 |
8 |
|
9 |
9 |
# So, we don't support $^O yet, but we can try to emulate some features |
10 |
10 |
|
| … | … | @@ -92,6 +92,7 @@ sub login_name { |
92 |
92 |
|
93 |
93 |
sub bitness { |
94 |
94 |
my $self = shift; |
95 |
return; |
|
95 |
96 |
} |
96 |
97 |
|
97 |
98 |
1; |
