From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 19 Mar 2006 13:21:37 +0000 (+0200)
Subject: a bit 'use strict' cleanliness
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abc0156ba8cc024916c0d1e664c4488f0cbc55c8;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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;