diff options
Diffstat (limited to 'gmi.pl')
-rwxr-xr-x | gmi.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -7,7 +7,7 @@ use warnings; use 5.010; #use diagnostics; -our $VERSION = 'v0.0.4'; +our $VERSION = 'v0.0.5'; # Modules use IO::Socket::SSL; # CPAN @@ -405,8 +405,8 @@ while () { } elsif (-d $doc_loc) { # make sure 'dir' is 'dir/' - if (substr($doc_loc,-1,1) ne '/') { - speak($cl, 'redirect', "$path/"); + if (substr($doc_loc,-1,1) ne '/') { + speak($cl, 'redirect', @{ split_url_path($path, 256) }[-1]. "/"); goto CLOSE; } |