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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCompare.pm37 open(FROM,"<$from") or goto fail_open1;
93 close(FROM) || goto fail_open1 if $closefrom;
100 close(FROM) || goto fail_open1 if $closefrom;
111 fail_open1: label
H A DCopy.pm118 open($from_h, "< $from\0") or goto fail_open1;
156 close($from_h) || goto fail_open1 if $closefrom;
176 fail_open1: label

Completed in 19 milliseconds