Avoid $` $& $' in libraries

(this is the same change as commit 2724d5068a405436d3f2cd00aeb8f7b460b24fec, but as applied)

1 files changed, 8 insertions, 7 deletions

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index 9d6636a82f..2ecaebe609 100644
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -1,7 +1,5 @@
 package Pod::Text;
 
-# Version 1.02
-
 =head1 NAME
 
 Pod::Text - convert POD data to formatted ASCII text
@@ -49,6 +47,9 @@ require Exporter;
 @ISA = Exporter;
 @EXPORT = qw(pod2text);
 
+use vars qw($VERSION);
+$VERSION = "1.0201";
+
 $termcap=0;
 
 #$use_format=1;
@@ -116,18 +117,18 @@ POD_DIRECTIVE: while (<IN>) {
 	next;
     }
 
-    if (/^=for\s+(\S+)\s*/s) {
+    if (/^=for\s+(\S+)\s*(.*)/s) {
         if ($1 eq "text") {
-            print STDOUT $',"";
+            print STDOUT $2,"";
         } else {
             # ignore unknown for
         }
         next;
     }
-    elsif (/^=begin\s+(\S+)\s*/s) {
+    elsif (/^=begin\s+(\S+)\s*(.*)/s) {
         $begun = $1;
         if ($1 eq "text") {
-            print STDOUT $'."";
+            print STDOUT $2."";
         }
         next;
     }
@@ -409,7 +410,7 @@ sub clear_noremap {
 	     defined $HTML_Escapes{$3}
 		? do { $HTML_Escapes{$3} }
 		: do {
-		    warn "Unknown escape: $& in $_";
+		    warn "Unknown escape: E<$1> in $_";
 		    "E<$1>";
 		}
 	 }