Change 13302 by jhi@alpha on 2001/11/27 01:35:23
Just printing 1..0 is not quite enough...
Affected files ...
.... //depot/perl/lib/Dumpvalue.t#3 edit
Differences ...
==== //depot/perl/lib/Dumpvalue.t#3 (text) ====
Index: perl/lib/Dumpvalue.t
--- perl/lib/Dumpvalue.t.~1~ Mon Nov 26 18:45:05 2001
+++ perl/lib/Dumpvalue.t Mon Nov 26 18:45:05 2001
@@ -3,7 +3,10 @@
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
- print "1..0 # skip: EBCDIC\n" if ord('A') == 193;
+ if (ord('A') == 193) {
+ print "1..0 # skip: EBCDIC\n";
+ exit 0;
+ }
}
use vars qw( $foo @bar %baz );
End of Patch.
