[svn r7804] If we can't write a file, say what the filename was!

This commit is contained in:
expo
2007-07-21 15:41:53 +02:00
parent 4fe615918e
commit 1662c76ecb

View File

@@ -269,7 +269,7 @@ sub do_this_line {
# this is considered harmful now creation of directories is versioned - DL
# Open the file and start writing to it
open FILE, "> $file" or die $!;
open FILE, "> $file" or die "$!: $file";
print LOGFILE "Created $file\n";
print FILE << "END";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">