Bug 317993 Improve error reporting for handle*

r=mkanat
This commit is contained in:
timeless%mozdev.org 2005-11-28 11:38:35 +00:00
Родитель 15e616f61e
Коммит fcfa29edc5
2 изменённых файлов: 4 добавлений и 2 удалений

Просмотреть файл

@ -22,6 +22,7 @@
use strict;
use Cwd;
if (($#ARGV >= 0) && (-d $ARGV[0])) {
chdir($ARGV[0]);
@ -37,7 +38,7 @@ if (($#ARGV >= 0) && (-d $ARGV[0])) {
my $filename = "data/admin.$$";
unlink($filename);
die "Cannot Open data file: $!\n"
die "Cannot Open data file (cwd: ". cwd() . "; $filename): $!\n"
unless (open(FILE, "> $filename"));
while (<STDIN>) {

Просмотреть файл

@ -22,6 +22,7 @@
use strict;
use Cwd;
if (($#ARGV >= 0) && (-d $ARGV[0])) {
chdir($ARGV[0]);
@ -37,7 +38,7 @@ if (($#ARGV >= 0) && (-d $ARGV[0])) {
my $filename = "data/temp.$$";
unlink($filename);
die "Cannot Open data file: $!\n"
die "Cannot Open data file (cwd: ". cwd() . "; $filename): $!\n"
unless (open(FILE, "> $filename"));
while (<STDIN>) {