зеркало из https://github.com/mozilla/pjs.git
Bug 317993 Improve error reporting for handle*
r=mkanat
This commit is contained in:
Родитель
15e616f61e
Коммит
fcfa29edc5
|
@ -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>) {
|
||||
|
|
Загрузка…
Ссылка в новой задаче