Cross Reference: switch0.t
xref
: /
opensolaris-onvv-gate
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
t
/
run
/
switch0.t
Home
History
Annotate
Line#
Navigate
Raw
Download
only in
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/run/
1
#!./perl -0
2
print
"1..1\n"
;
3
print
ord
$/ ==
0
?
"ok 1\n"
:
"not ok 1\n"
;
4