| # | 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 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |