# | 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 |