| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | # Author: Tim Pope <rxvt-unicodeNOSPAM@tpope.info> | 3 | # Author: Tim Pope <rxvt-unicodeNOSPAM@tpope.org> |
| 4 | # Bob Farrell <robertanthonyfarrell@gmail.com> | 4 | # Bob Farrell <robertanthonyfarrell@gmail.com> |
| 5 | 5 | ||
| 6 | my $url = | 6 | my $url = |
| 7 | qr{ | 7 | qr{ |
| 8 | (?:https?://|ftp://|news://|mailto:|file://|\bwww\.) | 8 | (?:https?://|ftp://|news://|mailto:|file://|\bwww\.) |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |