From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 30 Jan 2001 02:11:07 +0000 (+0000)
Subject: EBCDIC patch for Storable, from Peter Prymmer.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d40f95685330466e907153a5cbcc10874ae145fa;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC patch for Storable, from Peter Prymmer.

p4raw-id: //depot/perl@8595
---

diff --git a/t/lib/st-06compat.t b/t/lib/st-06compat.t
index 236d113..8512974 100644
--- a/t/lib/st-06compat.t
+++ b/t/lib/st-06compat.t
@@ -91,16 +91,18 @@ my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
 my $r = ROOT->make;
 
 my $data = '';
-while (<DATA>) {
-	if (!$Is_EBCDIC) {
+if (!$Is_EBCDIC) {
+	while (<DATA>) {
 	    next if /^#/;
 	    $data .= unpack("u", $_);
 	}
-	else {
-	    next if /^#$/;
-	    next if /^#\s+/;
-	    next if /^[^#]/;
-	    s/^#//;
+}
+else {
+	while (<DATA>) {
+	    next if /^#$/;    # skip comments
+	    next if /^#\s+/;  # skip comments
+	    next if /^[^#]/;  # skip uuencoding for ASCII machines
+	    s/^#//;           # prepare uuencoded data for EBCDIC machines
 	    $data .= unpack("u", $_);
 	}
 }
@@ -143,7 +145,7 @@ M24U03$586`0"`````0B"6&(&4TE-4$Q%6%@$`@````$(@UAB!E-)35!,15A8
 M!`(````!"(188@9324U03$586%A8`````V]B:@0,!``````*6%A8`````W)E
 (9F($4D]/5%@`
 #
-# using Storable-1.007, output of: print '#' . pack("u", nfreeze(ROOT->make));
+# using Storable-0.6@11, output of: print '#' . pack("u", nfreeze(ROOT->make));
 # on OS/390 (cp 1047) original size: 217 bytes
 #
 #M!0,1!-G6UN,#````!00,!!$)X\G%Q&W(P>+(`P````(*!*6!D_$````$DH6H