diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 01:35:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-27 01:35:23 +0000 |
| commit | 879d75d12778233f9a90a2b76934037c778d801b (patch) | |
| tree | aa995557c78c9fc9e22b7a44f1814056e3a461b1 /lib/Dumpvalue.t | |
| parent | a9d6e7843dde3031369453ea1ec1e3aaa92687f0 (diff) | |
| download | perl-879d75d12778233f9a90a2b76934037c778d801b.tar.gz | |
Just printing 1..0 is not quite enough...
p4raw-id: //depot/perl@13302
Diffstat (limited to 'lib/Dumpvalue.t')
| -rw-r--r-- | lib/Dumpvalue.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Dumpvalue.t b/lib/Dumpvalue.t index 4b6543dc8b..d1af109f60 100644 --- a/lib/Dumpvalue.t +++ b/lib/Dumpvalue.t @@ -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 ); |