X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLinux-SysInfo.git;a=blobdiff_plain;f=samples%2Fsysinfo.pl;fp=samples%2Fsysinfo.pl;h=4f2bf7fae2975d4c945985c74dc89729aa27ee3e;hp=a0d860b579c70970433a04b774459f7e2d0d829b;hb=df2d2239c4e52ed9bf6891f03d6a3bb8e65a1297;hpb=ecf24bbfa76391c0731a62319bb54dcb2c4c7e1b

diff --git a/samples/sysinfo.pl b/samples/sysinfo.pl
index a0d860b..4f2bf7f 100755
--- a/samples/sysinfo.pl
+++ b/samples/sysinfo.pl
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib blib/arch};
+use lib qw<blib/lib blib/arch>;
 
-use Linux::SysInfo qw/sysinfo LS_HAS_EXTENDED/;
+use Linux::SysInfo qw<sysinfo LS_HAS_EXTENDED>;
 
 my $si = sysinfo;
 die 'sysinfo() failed ! (should be pretty rare but it did happen)' unless $si;
@@ -21,5 +21,5 @@ if (LS_HAS_EXTENDED) {
  ($si->{mem_unit} == 1) ? "the memory values are the actual sizes in bytes :\n"
                         : "the sizes in bytes are actually :\n";
  print '- ', $_, ': ', $si->{$_} * $si->{mem_unit}, "\n" for sort
- qw/totalram freeram sharedram bufferram totalswap freeswap totalhigh freehigh/;
+ qw<totalram freeram sharedram bufferram totalswap freeswap totalhigh freehigh>;
 }