]> git.vpit.fr Git - perl/modules/Linux-SysInfo.git/commitdiff
Switch qw delimiters to <>
authorVincent Pit <vince@profvince.com>
Sat, 24 Aug 2013 21:38:53 +0000 (18:38 -0300)
committerVincent Pit <vince@profvince.com>
Sat, 24 Aug 2013 22:05:30 +0000 (19:05 -0300)
lib/Linux/SysInfo.pm
samples/sysinfo.pl
t/10-standard.t
t/20-extended.t
t/30-threads.t

index 1d5a48aaf5ceffc9a9d65ab88c175a958debf94b..d18ede2c06044e59ee8c5da2c0c0f929805070c4 100644 (file)
@@ -22,7 +22,7 @@ BEGIN {
 
 =head1 SYNOPSIS
 
 
 =head1 SYNOPSIS
 
-    use Linux::SysInfo qw/sysinfo/;
+    use Linux::SysInfo qw<sysinfo>;
 
     my $si = sysinfo;
     print "$_: $si->{$_}\n" for keys %$si;
 
     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
 
 
 =cut
 
-use base qw/Exporter/;
+use base qw<Exporter>;
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
 
 our @EXPORT         = ();
 our %EXPORT_TAGS    = (
- 'funcs'  => [ qw/sysinfo/ ],
- 'consts' => [ qw/LS_HAS_EXTENDED/ ]
+ 'funcs'  => [ qw<sysinfo> ],
+ 'consts' => [ qw<LS_HAS_EXTENDED> ]
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
 );
 our @EXPORT_OK      = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
index a0d860b579c70970433a04b774459f7e2d0d829b..4f2bf7fae2975d4c945985c74dc89729aa27ee3e 100755 (executable)
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 
 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;
 
 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
  ($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>;
 }
 }
index 2442dff7666d184d658386d085748320d0ebbf9d..30c2002d12628dc4dae2db0cbd3b9ab05c13b97d 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 12 * 5;
 
 
 use Test::More tests => 12 * 5;
 
-use Linux::SysInfo qw/sysinfo/;
+use Linux::SysInfo qw<sysinfo>;
 
 SKIP: {
  for my $run (0 .. 4) {
 
 SKIP: {
  for my $run (0 .. 4) {
@@ -14,8 +14,8 @@ SKIP: {
                                                              unless defined $si;
   is ref($si), 'HASH', "sysinfo returns a hash reference at run $run";
 
                                                              unless defined $si;
   is ref($si), 'HASH', "sysinfo returns a hash reference at run $run";
 
-  for (qw/uptime load1 load5 load15 procs
-          totalram freeram sharedram bufferram totalswap freeswap/) {
+  for (qw<uptime load1 load5 load15 procs
+          totalram freeram sharedram bufferram totalswap freeswap>) {
    if (defined $si->{$_}) {
     like $si->{$_}, qr/^\d+(?:\.\d+)?$/,
                                        "key $_ looks like a number at run $run";
    if (defined $si->{$_}) {
     like $si->{$_}, qr/^\d+(?:\.\d+)?$/,
                                        "key $_ looks like a number at run $run";
index 8876414ce511f9b267bc4cae8dd97fdd65f29d23..779fe256da4602f18aee4fd8cf30cfd3e5d90103 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More;
 
 
 use Test::More;
 
-use Linux::SysInfo qw/sysinfo LS_HAS_EXTENDED/;
+use Linux::SysInfo qw<sysinfo LS_HAS_EXTENDED>;
 
 unless (LS_HAS_EXTENDED) {
  plan skip_all => 'your kernel does not support extended sysinfo fields';
 
 unless (LS_HAS_EXTENDED) {
  plan skip_all => 'your kernel does not support extended sysinfo fields';
@@ -20,7 +20,7 @@ unless (LS_HAS_EXTENDED) {
    is ref($si), 'HASH', "sysinfo returns a hash reference at run $run";
    is scalar(keys %$si), 14, "sysinfo object has the right number of keys at run $run";
 
    is ref($si), 'HASH', "sysinfo returns a hash reference at run $run";
    is scalar(keys %$si), 14, "sysinfo object has the right number of keys at run $run";
 
-   for (qw/totalhigh freehigh mem_unit/) {
+   for (qw<totalhigh freehigh mem_unit>) {
     if (defined $si->{$_}) {
      like $si->{$_}, qr/^\d+(?:\.\d+)?$/,
                                        "key $_ looks like a number at run $run";
     if (defined $si->{$_}) {
      like $si->{$_}, qr/^\d+(?:\.\d+)?$/,
                                        "key $_ looks like a number at run $run";
index b7318c72195bf28bad08d924bfbbe30628039d35..690bd1167658ba44bab73296acbbeb628ef1a0f4 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 BEGIN {
  my $has_threads = do {
 
 BEGIN {
  my $has_threads = do {
@@ -20,7 +20,7 @@ BEGIN {
  }
 }
 
  }
 }
 
-use Linux::SysInfo qw/sysinfo/;
+use Linux::SysInfo qw<sysinfo>;
 
 sub try {
  my $tid = threads->tid();
 
 sub try {
  my $tid = threads->tid();