ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/misc/mailinfo/mailinfo.pl
(Generate patch)

Comparing misc/mailinfo/mailinfo.pl (file contents):
Revision 1.3 by tdb, Thu Jul 19 14:28:22 2001 UTC vs.
Revision 1.4 by tdb, Thu Jul 19 16:45:48 2001 UTC

# Line 112 | Line 112 | sub mailinfo() {
112      while($response ne ".\n") {
113          $response = <$sock>;
114          if($response =~ s/^\?/mailinfo: /) {
115 <            print "$response";
115 >            print $response;
116          }
117          else {
118 <            print "$response" unless $response eq ".\n";
118 >            print $response unless $response eq ".\n";
119          }
120      }
121      

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines