Searched refs:fail_open2 (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCompare.pm51 open(TO,"<$to") or goto fail_open2;
92 close(TO) || goto fail_open2 if $closeto;
99 close(TO) || goto fail_open2 if $closeto;
104 fail_open2: label
H A DCopy.pm129 open($to_h,"> $to\0") or goto fail_open2;
155 close($to_h) || goto fail_open2 if $closeto;
169 fail_open2: label

Completed in 20 milliseconds