diff options
author | Marat Dukhan <maratek@gmail.com> | 2013-06-30 01:30:44 +0400 |
---|---|---|
committer | Cyrill Gorcunov <gorcunov@gmail.com> | 2013-06-30 01:31:15 +0400 |
commit | 1052394ef6e7601973eab7be9cdc098370a56355 (patch) | |
tree | 2bd2f380b374b212b57ac8fa9b1888c7087d3bbc /pptok.pl | |
parent | 50a33b068bab4ec7e996c2bf869c8edb1fec5da2 (diff) | |
download | nasm-1052394ef6e7601973eab7be9cdc098370a56355.tar.gz nasm-1052394ef6e7601973eab7be9cdc098370a56355.tar.bz2 nasm-1052394ef6e7601973eab7be9cdc098370a56355.zip |
make: Fix nasm build with MSVC
http://bugzilla.nasm.us/show_bug.cgi?id=3392258
Signed-off-by: Marat Dukhan <maratek@gmail.com>
Signed-off-by: Cyrill Gorcunov <gorcunov@gmail.com>
Diffstat (limited to 'pptok.pl')
-rwxr-xr-x | pptok.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -45,7 +45,7 @@ my($what, $in, $out) = @ARGV; # open(IN, "< $in") or die "$0: cannot open: $in\n"; while (defined($line = <IN>)) { - chomp $line; + $line =~ s/\r?\n$//; # Remove trailing \r\n or \n $line =~ s/^\s+//; # Remove leading whitespace $line =~ s/\s*\#.*$//; # Remove comments and trailing whitespace next if ($line eq ''); |