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

Last change on this file was 3181, checked in by bird, 18 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.