Fixed verbatim lines in POD over 79 characters

3 files changed, 12 insertions, 9 deletions

diff --git a/lib/Tie/Array.pm b/lib/Tie/Array.pm
index 767cfdd77a..aa8cd4099e 100644
--- a/lib/Tie/Array.pm
+++ b/lib/Tie/Array.pm
@@ -128,10 +128,10 @@ Tie::Array - base class for tied arrays
     sub FETCH { ... }
     sub FETCHSIZE { ... }
 
-    sub STORE { ... }        # mandatory if elements writeable
-    sub STORESIZE { ... }    # mandatory if elements can be added/deleted
-    sub EXISTS { ... }       # mandatory if exists() expected to work
-    sub DELETE { ... }       # mandatory if delete() expected to work
+    sub STORE { ... }       # mandatory if elements writeable
+    sub STORESIZE { ... }   # mandatory if elements can be added/deleted
+    sub EXISTS { ... }      # mandatory if exists() expected to work
+    sub DELETE { ... }      # mandatory if delete() expected to work
 
     # optional methods - for efficiency
     sub CLEAR { ... }
diff --git a/lib/Tie/Hash.pm b/lib/Tie/Hash.pm
index 1acd829c34..d944cd1f72 100644
--- a/lib/Tie/Hash.pm
+++ b/lib/Tie/Hash.pm
@@ -22,7 +22,8 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
 
     @ISA = qw(Tie::StdHash);
 
-    # All methods provided by default, define only those needing overrides
+    # All methods provided by default, define
+    # only those needing overrides
     # Accessors access the storage in %{$_[0]};
     # TIEHASH should return a reference to the actual storage
     sub DELETE { ... }
@@ -32,10 +33,11 @@ Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
 
     @ISA = qw(Tie::ExtraHash);
 
-    # All methods provided by default, define only those needing overrides
+    # All methods provided by default, define 
+    # only those needing overrides
     # Accessors access the storage in %{$_[0][0]};
-    # TIEHASH should return an array reference with the first element being
-    # the reference to the actual storage 
+    # TIEHASH should return an array reference with the first element
+    # being the reference to the actual storage 
     sub DELETE { 
       $_[0][1]->('del', $_[0][0], $_[1]); # Call the report writer
       delete $_[0][0]->{$_[1]};		  #  $_[0]->SUPER::DELETE($_[1])
diff --git a/lib/Tie/Scalar.pm b/lib/Tie/Scalar.pm
index 24e4ae79c3..48bd9ac6e9 100644
--- a/lib/Tie/Scalar.pm
+++ b/lib/Tie/Scalar.pm
@@ -22,7 +22,8 @@ Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
 
     @ISA = qw(Tie::StdScalar);
 
-    # All methods provided by default, so define only what needs be overridden
+    # All methods provided by default, so define
+    # only what needs be overridden
     sub FETCH { ... }