source: trunk/essentials/dev-lang/perl/t/run/switch0.t@ 3406

Last change on this file since 3406 was 3181, checked in by bird, 19 years ago

perl 5.8.8
File size: 73 bytes
Line 
1#!./perl -0
2print "1..1\n";
3print ord $/ == 0 ? "ok 1\n" : "not ok 1\n";
Note: See TracBrowser for help on using the repository browser.