Parent Directory
| 
Revision Log
| 
Patch
| revision 1.2 by wakaba, Fri Mar 11 12:54:15 2005 UTC | revision 1.3 by wakaba, Sat Mar 12 01:08:31 2005 UTC | |
|---|---|---|
| # | Line 86 sub canon_path ($) { | Line 86 sub canon_path ($) { |
| 86 | sub remove_dot_segments ($) { | sub remove_dot_segments ($) { |
| 87 | my $input = shift; | my $input = shift; |
| 88 | my @output; | my @output; |
| 89 | $input =~ s/%2E/./g; ## No semantical side effect since "." is unreserved | |
| 90 | while (length $input) { | while (length $input) { |
| 91 | if ($input =~ s#^\.\.?/##g or $input =~ s#^/\.(?:/|(?![^/]))#/#g) { | if ($input =~ s#^\.\.?/##g or $input =~ s#^/\.(?:/|(?![^/]))#/#g) { |
| 92 | # | # |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |