From 306747c202ac2a237b107116260e700d1a0de4f9 Mon Sep 17 00:00:00 2001
From: Thibault Godouet <yo8192@users.noreply.github.com>
Date: Wed, 5 Dec 2012 21:18:43 +0000
Subject: [PATCH] clearer error messages in gen-in.pl

---
 script/gen-in.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/script/gen-in.pl b/script/gen-in.pl
index fa2e8d7..5bc4de9 100755
--- a/script/gen-in.pl
+++ b/script/gen-in.pl
@@ -16,7 +16,7 @@
 
 
 
-open(CONFIG, "$ARGV[2]/config.h") or print "error while opening config.h\n" and exit;
+open(CONFIG, "$ARGV[2]/config.h") or print "error while opening config.h: $!\n" and exit;
 while ( <CONFIG> ) {
     if ( /^\#define\s+(\w+?)\s+([\w\/-]+?)\s/ ) {
 	$map{$1} = $2;
@@ -28,7 +28,7 @@ while ( <CONFIG> ) {
 }
 close(CONFIG);
 
-open(MAKEFILE, "$ARGV[2]/Makefile") or print "error while opening Makefile\n" and exit;
+open(MAKEFILE, "$ARGV[2]/Makefile") or print "error while opening Makefile: $!\n" and exit;
 while ( <MAKEFILE> ) {
     if ( /^\s*?(\w+?)\s*?=\s*?([^\s]+)\s/ ) {
 	$name = $1;
@@ -47,8 +47,8 @@ close(MAKEFILE);
 
 chop ($map{Date} = `date +%m/%d/%Y`);
 
-open(SRC, $ARGV[0]) or print "error while opening $ARGV[0]\n" and exit;
-open(DEST, ">$ARGV[1]") or print "error while opening $ARGV[1]\n" and exit;
+open(SRC, $ARGV[0]) or print "error while opening $ARGV[0]: $!\n" and exit;
+open(DEST, ">$ARGV[1]") or print "error while opening $ARGV[1]: $!\n" and exit;
 
 while ( <SRC> ) {
     s/@@([^@]*)@/$map{$1}/g;
-- 
2.47.3