summaryrefslogtreecommitdiff
path: root/gmi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'gmi.pl')
-rwxr-xr-xgmi.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/gmi.pl b/gmi.pl
index 2ccb072..b292ba2 100755
--- a/gmi.pl
+++ b/gmi.pl
@@ -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;
}