Lines Matching refs:die
60 open ($fh, ">$filename") || die "Cannot open $filename: $!" ;
77 open(CAT,$file) || die "Cannot open $file:$!";
420 open(FILE, ">SubDB.pm") or die "Cannot open SubDB.pm: $!\n" ;
471 close FILE or die "Could not close: $!";
481 die "Could not tie: $!" unless $X;
785 or die "Cannot open file 'text': $!\n" ;
843 or die "Cannot open file $file: $!\n" ;
950 or die "Can't open file: $!\n" ;
970 or die "Can't open file: $!\n" ;
1208 or die "Can't open file: $!\n" ;
1361 die "testnum ($testnum) != total_tests ($total_tests) + 1"
1385 die 'usage: test_splice(array, offset, length, list, context)' if @_ != 5;
1394 or die "cannot open $tmp: $!";
1435 die "bad context $context";
1475 die "bad context $context";
1516 open(TEXT, $tmp) or die "cannot open $tmp: $!";
1518 close TEXT or die "cannot close $tmp: $!";
1543 die 'usage: list_diff(ref to first list, ref to second list)'
1571 die 'usage: rand_test()' if @_;
1583 die 'usage: rand_list()' if @_;
1594 die 'usage: rand_word()' if @_;