X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLinux-SysInfo.git;a=blobdiff_plain;f=lib%2FLinux%2FSysInfo.pm;fp=lib%2FLinux%2FSysInfo.pm;h=d18ede2c06044e59ee8c5da2c0c0f929805070c4;hp=1d5a48aaf5ceffc9a9d65ab88c175a958debf94b;hb=df2d2239c4e52ed9bf6891f03d6a3bb8e65a1297;hpb=ecf24bbfa76391c0731a62319bb54dcb2c4c7e1b diff --git a/lib/Linux/SysInfo.pm b/lib/Linux/SysInfo.pm index 1d5a48a..d18ede2 100644 --- a/lib/Linux/SysInfo.pm +++ b/lib/Linux/SysInfo.pm @@ -22,7 +22,7 @@ BEGIN { =head1 SYNOPSIS - use Linux::SysInfo qw/sysinfo/; + use Linux::SysInfo qw; my $si = sysinfo; print "$_: $si->{$_}\n" for keys %$si; @@ -143,12 +143,12 @@ Functions are also exported by the C<:funcs> tag, and constants by C<:consts>. =cut -use base qw/Exporter/; +use base qw; our @EXPORT = (); our %EXPORT_TAGS = ( - 'funcs' => [ qw/sysinfo/ ], - 'consts' => [ qw/LS_HAS_EXTENDED/ ] + 'funcs' => [ qw ], + 'consts' => [ qw ] ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];