diff options
| author | ivan <ivan> | 1998-12-23 02:23:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-12-23 02:23:16 +0000 |
| commit | 09a5eb8c6c43659d31fc043f556e404dcf322b13 (patch) | |
| tree | cdfad616c12f8a66ee9c3768bcf6b62b8d0e3c3b /site_perl/CGI.pm | |
| parent | e10ac0a3a728f9410ae6d7b121809eb14e33c42f (diff) | |
popurl always has trailing slash
Diffstat (limited to 'site_perl/CGI.pm')
| -rw-r--r-- | site_perl/CGI.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm index 65bf2012d..b21a88837 100644 --- a/site_perl/CGI.pm +++ b/site_perl/CGI.pm @@ -134,7 +134,9 @@ sub popurl { my(@path)=$url->path_components; splice @path, 0-$up; $url->path_components(@path); - $url->as_string; + my $x = $url->as_string; + $x .= '/' unless $x =~ /\/$/; + $x; } =item table @@ -171,7 +173,10 @@ lose the background, eidiot ivan@sisd.com 98-sep-2 pod ivan@sisd.com 98-sep-12 $Log: CGI.pm,v $ -Revision 1.11 1998-11-12 07:43:54 ivan +Revision 1.12 1998-12-23 02:23:16 ivan +popurl always has trailing slash + +Revision 1.11 1998/11/12 07:43:54 ivan *** empty log message *** Revision 1.10 1998/11/12 01:53:47 ivan |