equal
deleted
inserted
replaced
102 print "Running '$command'\n" if ($options{verbose}); |
102 print "Running '$command'\n" if ($options{verbose}); |
103 open (CPP, $command) or die "Error: Couldn't run 'cpp.exe': $!\n"; |
103 open (CPP, $command) or die "Error: Couldn't run 'cpp.exe': $!\n"; |
104 my $spec; |
104 my $spec; |
105 |
105 |
106 my $currentDir; |
106 my $currentDir; |
107 my $currentFile; |
107 my $currentFile = $podListFileName; |
108 my $currentLine = 0; |
108 my $currentLine = 0; |
109 while (my $line = <CPP>) { |
109 while (my $line = <CPP>) { |
110 ++$currentLine; |
110 ++$currentLine; |
111 $line =~ s/^\s+//; |
111 $line =~ s/^\s+//; |
112 next if (!$line); # Blank lines. |
112 next if (!$line); # Blank lines. |