summaryrefslogtreecommitdiff
path: root/pptok.pl
diff options
context:
space:
mode:
authorMarat Dukhan <maratek@gmail.com>2013-06-30 01:30:44 +0400
committerCyrill Gorcunov <gorcunov@gmail.com>2013-06-30 01:31:15 +0400
commit1052394ef6e7601973eab7be9cdc098370a56355 (patch)
tree2bd2f380b374b212b57ac8fa9b1888c7087d3bbc /pptok.pl
parent50a33b068bab4ec7e996c2bf869c8edb1fec5da2 (diff)
downloadnasm-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-xpptok.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/pptok.pl b/pptok.pl
index be85b94..1ea2e7e 100755
--- a/pptok.pl
+++ b/pptok.pl
@@ -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 '');