develooper Front page | perl.perl5.porters | Postings from October 2007

patch for lib/Pod/Text.pm for EBCDIC platform

From:
Chun Bing Ge
Date:
October 24, 2007 23:01
Subject:
patch for lib/Pod/Text.pm for EBCDIC platform
Message ID:
OF8E60ABB6.14DEE18E-ON4825737F.0020CBAD-4825737F.002115D3@IBMCN
Hi,

Here is the patch below. Any question, pls let me know, thanks.


--- /home/spring/perl/perl-current/lib/Pod/Text.pm      2006-09-19 
22:09:36.000000000 +0800
+++ /home/spring/patch/chgfile/lib-Pod-Text.pm  2007-09-10 
13:15:21.000000000 +0800
@@ -245,7 +245,12 @@
 # Output text to the output device.
 sub output {
     my ($self, $text) = @_;
-    $text =~ tr/\240\255/ /d;
+    if (ord("A") == 193) {
+        $text =~ tr/\101\312/ /d;
+    }
+    else {
+        $text =~ tr/\240\255/ /d;
+    }
     print { $$self{output_fh} } $text;
 }
 


Ge, Chun Bing
空山新雨后,天气晚来秋



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About