[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
PATCH: Print actual reply from server (when debugging)
From: |
Gerald Pfeifer |
Subject: |
PATCH: Print actual reply from server (when debugging) |
Date: |
Sat, 10 Aug 2002 19:19:10 +0200 (CEST) |
I just cooked up a ChangeLog entry and installed the following patch
Anders had sent me by private mail.
(Was the behavior of $_ different with older versions of Perl?)
Thanks,
Gerald
2002-08-10 Anders Johnson <address@hidden>
* gnatsweb.pl (server_reply): Print actual reply from server
when debugging.
Index: gnatsweb.pl
===================================================================
RCS file: /cvsroot/gnatsweb/gnatsweb/gnatsweb.pl,v
retrieving revision 1.94
diff -u -3 -p -r1.94 gnatsweb.pl
--- gnatsweb.pl 4 Jun 2002 22:24:24 -0000 1.94
+++ gnatsweb.pl 10 Aug 2002 17:14:36 -0000
@@ -366,7 +366,7 @@ sub server_reply
{
my($state, $text, $type);
my $raw_reply = <SOCK>;
- print "<tt>server_reply: $_</tt><br>\n" if defined($reply_debug);
+ print "<tt>server_reply: $raw_reply</tt><br>\n" if defined($reply_debug);
if($raw_reply =~ /(\d+)([- ]?)(.*$)/)
{
$state = $1;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- PATCH: Print actual reply from server (when debugging),
Gerald Pfeifer <=