diff options
| author | lookshe <lookshe@fumuga.com> | 2012-04-17 23:04:24 +0200 |
|---|---|---|
| committer | lookshe <lookshe@fumuga.com> | 2012-04-17 23:04:24 +0200 |
| commit | e92f4f4425e9afab798910880c146567c22898c8 (patch) | |
| tree | 3dd900aab125f210ff4849ee1fbf65ca3cf063e6 | |
| parent | b682260545e6ae0e25815bb005ba9a97292285b7 (diff) | |
typo
| -rw-r--r-- | tinyurl.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tinyurl.tcl b/tinyurl.tcl index 78e7518..7c6a411 100644 --- a/tinyurl.tcl +++ b/tinyurl.tcl @@ -68,7 +68,7 @@ foreach act_arg $arg { } } - if {([string match "*youtube*watch*" $url] == 1) || ([string match "*youtu.bei*" $url] ==1)} { + if {([string match "*youtube*watch*" $url] == 1) || ([string match "*youtu.be*" $url] ==1)} { set title [exec perl -e "use URI::Title;binmode(STDOUT, \":utf8\");print URI::Title::title(\"$url\");"] if {([string match "* - YouTube" $title] == 1)} { set title [string range $title 0 end-10] |