# | Line 107 | Line 107 | sub mailinfo() { | |
---|---|---|
107 | ||
108 | # send the query | |
109 | print $sock "$mode $name\n"; | |
110 | + | $response = ""; |
111 | ||
112 | # read and print the response | |
113 | while($response ne ".\n") { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |