diff options
Diffstat (limited to 'scripts/spotify.pl')
| -rw-r--r-- | scripts/spotify.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/scripts/spotify.pl b/scripts/spotify.pl index 92f82e4..607b44a 100644 --- a/scripts/spotify.pl +++ b/scripts/spotify.pl @@ -18,7 +18,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '1.0'; +$VERSION = '1.1'; %IRSSI = ( authors => 'Örjan Persson', contact => 'o@42mm.org', @@ -413,10 +413,15 @@ sub spotify_lookup { my $writer = shift; my ($uri, $manual) = @{$_[0]}; + # Remove any leading whitespace and trailing whitespace and dots $uri =~ s/^\s+//g; $uri =~ s/[\s\.]+$//g; - my $u = URI->new($uri); - my @parts = split /[\/:]/, URI->new($uri)->path; + + # Unify how we look at the path, removing leading / to match how path looks + # for URIs with : where the path never starts with a :. + my $u = URI->new($uri)->path; + $u =~ s/^\///; + my @parts = split /[\/:]/, $u; my $path; my $auth; |