PATCH: Print actual reply from server (when debugging)

[Gerald Pfeifer]

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;