… | … | ||
---|---|---|---|
27 | eval $cmd; | 27 | eval $cmd; |
28 | } | 28 | } |
29 | print $@ if $@; | 29 | print $@ if $@; |
30 | } | 30 | } |
31 | 31 | ||
32 | print "> "; | 32 | print "> "; |
33 | select $old_fh; | 33 | select $old_fh; |
34 | } else { | 34 | } else { |
35 | $_[0]->w->cancel; | 35 | $_[0]->w->cancel; |
36 | } | 36 | } |
37 | }); | 37 | }); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |