commit ab2cdead77c0aa9c93462c4813c209a7f72a12fc
author Colin Pitrat <colin.pitrat@bull.net> Tue Aug 08 12:19:31 2006 +0200
committer Alexandre Julliard <julliard@winehq.org> Thu Aug 10 11:30:37 2006 +0200
tree 860b97e8f59cf54fc55b6140b39aa27d072cab69
parent 22bc001c08687eb0654debf27c57e49f3782c3db

tools: Check for open return code in Perl scripts.

tools/winapi/winapi_extract

diff --git a/tools/winapi/winapi_extract b/tools/winapi/winapi_extract
index a11a91b..7c4a394 100755
--- a/tools/winapi/winapi_extract
+++ b/tools/winapi/winapi_extract
@@ -63,7 +63,7 @@
 
 	my $type = "win32";
 
-	open(IN, "< $wine_dir/$spec_file");
+	open(IN, "< $wine_dir/$spec_file") || die "Error: Can't open $wine_dir/$spec_file: $!\n";
 
 	my $header = 1;
 	my $lookahead = 0;
@@ -210,7 +210,7 @@
     $progress_current++;
 
     {
-	open(IN, "< $file");
+	open(IN, "< $file") || die "Error: Can't open $file: $!\n";
 	local $/ = undef;
 	$_ = <IN>;
 	close(IN);
@@ -463,7 +463,7 @@
 	    $spec_file .= "2";
 
 	    $output->progress("$spec_file");
-	    open(OUT, "> $wine_dir/$spec_file");
+	    open(OUT, "> $wine_dir/$spec_file") || die "Error: Can't open $wine_dir/$spec_file: $!\n";
 
 	    if(exists($specifications{$module}{init})) {
 		my $function = $specifications{$module}{init}{function};
@@ -666,7 +666,7 @@
 	    next if $external_name eq "\@";
 
 	    if($n == 0) {
-                open(OUT, "> $wine_dir/programs/winetest/include/${package}.pm");
+                open(OUT, "> $wine_dir/programs/winetest/include/${package}.pm") || die "Error: Can't open $wine_dir/programs/winetest/include/${package}.pm: $!\n";
 
                 print OUT "package ${package};\n";
                 print OUT "\n";