diff options
author | terry%netscape.com <> | 1999-04-22 02:45:22 +0200 |
---|---|---|
committer | terry%netscape.com <> | 1999-04-22 02:45:22 +0200 |
commit | ca0361863e6e8f8328f068b9ef25b4d55a5f841b (patch) | |
tree | d4f30a1ecf798929aabb716631469b5d3d168b8e /globals.pl | |
parent | a044ffe98211c1acd1001703bda869b73c93271e (diff) | |
download | bugzilla-ca0361863e6e8f8328f068b9ef25b4d55a5f841b.tar.gz bugzilla-ca0361863e6e8f8328f068b9ef25b4d55a5f841b.tar.xz |
Fixed a bug where the long descriptions of bugs had a variety of
newline characters at the end, depending on the operating system of
the browser that submitted the text.
Diffstat (limited to 'globals.pl')
-rw-r--r-- | globals.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/globals.pl b/globals.pl index d6e18d225..26539107b 100644 --- a/globals.pl +++ b/globals.pl @@ -78,7 +78,13 @@ sub FetchOneColumn { sub AppendComment { my ($bugid,$who,$comment) = (@_); - $comment =~ s/\r\n/\n/; # Get rid of windows-style line endings. + open(DEBUG, ">/tmp/debug"); + print DEBUG "A $comment"; + $comment =~ s/\r\n/\n/g; # Get rid of windows-style line endings. + print DEBUG "B $comment"; + $comment =~ s/\r/\n/g; # Get rid of mac-style line endings. + print DEBUG "C $comment"; + close DEBUG; if ($comment =~ /^\s*$/) { # Nothin' but whitespace. return; } |