1 files changed, 1 insertions, 1 deletions
diff --git a/pptok.pl b/pptok.pl
index be85b942..1ea2e7e5 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 '');