Lines Matching refs:die
79 open ($fh, ">$filename") || die "Cannot open $filename: $!" ;
96 open(CAT,$file) || die "Cannot open $file: $!";
180 die "Could not tie: $!" unless $X;
551 tie(%h, 'DB_File',$Dfile1, O_RDWR|O_CREAT, 0640, $dbh1 ) or die $!;
552 tie(%g, 'DB_File',$Dfile2, O_RDWR|O_CREAT, 0640, $dbh2 ) or die $!;
553 tie(%k, 'DB_File',$Dfile3, O_RDWR|O_CREAT, 0640, $dbh3 ) or die $!;
638 open(FILE, ">SubDB.pm") or die "Cannot open SubDB.pm: $!\n" ;
943 or die "Cannot open file 'tree': $!\n" ;
992 or die "Cannot open $filename: $!\n";
1044 or die "Cannot open $filename: $!\n";
1099 or die "Cannot open $filename: $!\n";
1148 or die "Cannot open $filename: $!\n";
1183 or die "Cannot open $filename: $!\n";
1226 or die "Cannot open $filename: $!\n";
1313 or die "Can't open file: $!\n" ;
1333 or die "Can't open file: $!\n" ;