write.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
use strict;
BEGIN {
chdir 't' if -d 't';
print "1..0 # Skip: PerlIO required\n";
exit 0;
}
print "1..0 # Skip: EBCDIC porting needed\n";
exit 0;
}
}
"\x{104}\n\x{105}\n\x{106}\n");
sub fmwrtest {
}
$blite1 @<<
\$uitem1
$blite2 @<<
\$bitem2
EOFORMAT
$blite1 @<<
\$bitem1
$blite2 @<<
\$uitem2
EOFORMAT
$ulite1 @<<
\$bitem1
$blite2 @<<
\$bitem2
EOFORMAT
$blite1 @<<
\$bitem1
$ulite2 @<<
\$bitem2
EOFORMAT
$blite1
@*
\$umulti
$blite2
EOFORMAT
$ulite1
@*
\$bmulti
$blite2
EOFORMAT