commit bd68e06896ed1d3ab01c148ae1e32935a21a1172
author Patrik Stridvall <ps@leissner.se> Wed Oct 02 01:23:55 2002 +0000
committer Alexandre Julliard <julliard@winehq.org> Wed Oct 02 01:23:55 2002 +0000
tree df164ff603faebac9da7716a12acf7d2a44da980
parent b3c989e6b249e135c644a263cf86bac0c461384a

- API file update.
- Minor bug fixes.

tools/winapi_check/winapi_parser.pm

diff --git a/tools/winapi_check/winapi_parser.pm b/tools/winapi_check/winapi_parser.pm
index 500cd0f..01962dd 100644
--- a/tools/winapi_check/winapi_parser.pm
+++ b/tools/winapi_check/winapi_parser.pm
@@ -164,8 +164,9 @@
 
     print STDERR "Processing file '$file' ... " if $options->verbose;
     open(IN, "< $file") || die "<internal>: $file: $!\n";
-    $/ = "\n";
+    local $_ = "";
     while($again || defined(my $line = <IN>)) {
+	$_ = "" if !defined($_);
 	if(!$again) {
 	    chomp $line;
 
@@ -177,8 +178,8 @@
 		$_ = $line;
 		$lookahead_count = 0;
 	    }
-	    print " $level($lookahead_count): $line\n" if $options->debug >= 2;
-	    print "*** $_\n" if $options->debug >= 3;
+	    $output->write(" $level($lookahead_count): $line\n") if $options->debug >= 2;
+	    $output->write("*** $_\n") if $options->debug >= 3;
 	} else {
 	    $lookahead_count = 0;
 	    $again = 0;