commit | ab2cdead77c0aa9c93462c4813c209a7f72a12fc | [log] [tgz] |
---|---|---|
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 [diff] [blame] |
tools: Check for open return code in Perl scripts.
diff --git a/tools/winapi/winapi_fixup b/tools/winapi/winapi_fixup index 2354723..334aa52 100755 --- a/tools/winapi/winapi_fixup +++ b/tools/winapi/winapi_fixup
@@ -61,7 +61,7 @@ $output->prefix("$file:"); { - open(IN, "< $file"); + open(IN, "< $file") || die "Error: Can't open $file: $!\n"; local $/ = undef; $_ = <IN>; close(IN);