Searched defs:file_eq (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dfflush.t48 sub file_eq { subroutine
101 print file_eq($f, "Perl") ? "ok 1\n" : "not ok 1\n";
131 print file_eq($f, "Perl") ? "ok $t\n" : "not ok $t\n";

Completed in 26 milliseconds