Switch qw delimiters to <>

[perl/modules/Linux-SysInfo.git] / lib / Linux / SysInfo.pm

diff --git a/lib/Linux/SysInfo.pm b/lib/Linux/SysInfo.pm
index 1d5a48aaf5ceffc9a9d65ab88c175a958debf94b..d18ede2c06044e59ee8c5da2c0c0f929805070c4 100644 (file)
--- a/lib/Linux/SysInfo.pm
+++ b/lib/Linux/SysInfo.pm
@@ -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 ];