Searched refs:nosuch (Results 1 – 4 of 4) sorted by relevance
131 my $nosuch = '/non/existent/file.name';132 open(NOSUCH, '<', $nosuch);135 die "Eek! Attempting to open $nosuch failed, but \$! is still 0" unless $!;137 $cpt->rdo($nosuch);140 die "Eek! Didn't expect $nosuch to be there.";
38 extern void fe1 (const char *, ...) __attribute__((format(nosuch, 1, 2))); /* { dg-warning "format …
39 myunsub => \&nosuch,
249 eval(q{@nosuch = ('a', 'b', 'c'); ">@nosuch<" eq ">a b c<"})