I have a mixed bag of Linux and Windows Perl files.
When I have a Linux file that I am using on Windows,
the last character on each line is cut off.
To prevent this, I changed these two lines in ptkdb.pm
substr $lineStr, -2, 1, '' if $isWin32 ; # removes the
CR from win32 instances
$lineStr .= "\n" unless /\n$/o ; # append a \n if there
isn't one already
$lineStr =~ s/\s*$/\n/o;
Now it handles both Linux and Windows files correctly.
Log in to post a comment.