contrib/cap_sasl.pl: ./foo is a relative path

diff --git a/contrib/cap_sasl.pl b/contrib/cap_sasl.pl
index d2821d52987c036ff88bc84d00b9bdfa4b2be650..99e6b7c2dbad96135a5f4d0c0d1c166cb0e39b6b 100644 (file)
--- a/contrib/cap_sasl.pl
+++ b/contrib/cap_sasl.pl
@@ -4,7 +4,7 @@ use MIME::Base64;
 use vars qw($VERSION %IRSSI);
 use constant CHALLENGE_SIZE => 32;
 
-$VERSION = "1.8";
+$VERSION = "1.8a";
 %IRSSI = (
     authors     => 'Michael Tharp (gxti), Jilles Tjoelker (jilles), Mantas Mikulėnas (grawity)',
     contact     => 'grawity@gmail.com',
@@ -273,7 +273,7 @@ if (eval {require Crypt::PK::ECC}) {
                my ($sasl, $data) = @_;
                my $u = $sasl->{user};
                my $k = $sasl->{password};
-               if ($k !~ m!^[/.]!) {
+               if ($k !~ m!^/!) {
                        $k = Irssi::get_irssi_dir()."/".$k;
                }
                if (!-f $k) {