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 (file)
--- 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 );