a bit 'use strict' cleanliness

Message-ID: <441D3EC1.20902@gmail.com>

p4raw-id: //depot/perl@27541

diff --git a/lib/English.pm b/lib/English.pm
index eea7d2a..c11fbed 100644 (file)
--- a/lib/English.pm
+++ b/lib/English.pm
@@ -3,7 +3,7 @@ package English;
 our $VERSION = '1.04';
 
 require Exporter;
-@ISA = (Exporter);
+@ISA = qw(Exporter);
 
 =head1 NAME
 

diff --git a/lib/Text/Tabs.pm b/lib/Text/Tabs.pm
index 36107fc..aa79ecc 100644 (file)
--- a/lib/Text/Tabs.pm
+++ b/lib/Text/Tabs.pm
@@ -3,7 +3,7 @@ package Text::Tabs;
 
 require Exporter;
 
-@ISA = (Exporter);
+@ISA = qw(Exporter);
 @EXPORT = qw(expand unexpand $tabstop);
 
 use vars qw($VERSION $tabstop $debug);

diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index a838915..86d253d 100644 (file)
--- a/lib/Tie/Hash.pm
+++ b/lib/Tie/Hash.pm
@@ -11,7 +11,7 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
     package NewHash;
     require Tie::Hash;
 
-    @ISA = (Tie::Hash);
+    @ISA = qw(Tie::Hash);
 
     sub DELETE { ... }         # Provides needed method
     sub CLEAR { ... }          # Overrides inherited method
@@ -20,7 +20,7 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
     package NewStdHash;
     require Tie::Hash;
 
-    @ISA = (Tie::StdHash);
+    @ISA = qw(Tie::StdHash);
 
     # All methods provided by default, define only those needing overrides
     # Accessors access the storage in %{$_[0]};
@@ -30,7 +30,7 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
     package NewExtraHash;
     require Tie::Hash;
 
-    @ISA = (Tie::ExtraHash);
+    @ISA = qw(Tie::ExtraHash);
 
     # All methods provided by default, define only those needing overrides
     # Accessors access the storage in %{$_[0][0]};

diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm
index c23c121..3bfb2b6 100644 (file)
--- a/lib/Tie/Scalar.pm
+++ b/lib/Tie/Scalar.pm
@@ -11,7 +11,7 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
     package NewScalar;
     require Tie::Scalar;
 
-    @ISA = (Tie::Scalar);
+    @ISA = qw(Tie::Scalar);
 
     sub FETCH { ... }          # Provide a needed method
     sub TIESCALAR { ... }      # Overrides inherited method
@@ -20,7 +20,7 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
     package NewStdScalar;
     require Tie::Scalar;
 
-    @ISA = (Tie::StdScalar);
+    @ISA = qw(Tie::StdScalar);
 
     # All methods provided by default, so define only what needs be overridden
     sub FETCH { ... }
@@ -117,7 +117,7 @@ sub STORE {
 # tweak a small bit.
 #
 package Tie::StdScalar;
-@ISA = (Tie::Scalar);
+@ISA = qw(Tie::Scalar);
 
 sub TIESCALAR {
     my $class = shift;