From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 29 Oct 2001 14:08:21 +0000 (+0000)
Subject: The test (and the module) would require some
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87cec682fa689adeda22b6a3bf558ee0a8f0df4f;p=p5sagit%2Fp5-mst-13.2.git

The test (and the module) would require some
quality hacking time to work on EBCDIC.  Based on
the test results nothing seems to be majorly broken,
the module just seems to have strange assumptions:
got: ''\226\225\205'
expected: ''one'
The \226\225\205 being, of course, 'one', in EBCDIC.

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

diff --git a/lib/Dumpvalue.t b/lib/Dumpvalue.t
index 7c1d803..4b6543d 100644
--- a/lib/Dumpvalue.t
+++ b/lib/Dumpvalue.t
@@ -3,6 +3,7 @@
 BEGIN {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	print "1..0 # skip: EBCDIC\n" if ord('A') == 193;
 }
 
 use vars qw( $foo @bar %baz );