* PATCH: Print actual reply from server (when debugging)
@ 2002-08-10 12:07 Gerald Pfeifer
0 siblings, 0 replies; only message in thread
From: Gerald Pfeifer @ 2002-08-10 12:07 UTC (permalink / raw)
To: help-gnats; +Cc: Anders Johnson
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 <anders@wischip.com>
* 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;
_______________________________________________
Help-gnats mailing list
Help-gnats@gnu.org
http://mail.gnu.org/mailman/listinfo/help-gnats
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-08-10 17:20 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-08-10 12:07 PATCH: Print actual reply from server (when debugging) Gerald Pfeifer
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).