home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl_ste.zip / auto / URI / URL / _generic / path_components.al < prev    next >
Text File  |  1997-11-28  |  492b  |  19 lines
  1. # NOTE: Derived from ./blib/lib/URI/URL/_generic.pm.  Changes made here will be lost.
  2. package URI::URL::_generic;
  3.  
  4. sub path_components {
  5.     my $self = shift;
  6.     my $old = $self->{'path'};
  7.     $old = '' unless defined $old;
  8.     $old = "/$old" if $old !~ m|^/| && defined $self->{'netloc'};
  9.     if (@_) {
  10.     $self->_elem('path',
  11.              join("/", map { uri_escape($_,
  12.                         $URI::URL::reserved.".")
  13.                    } @_));
  14.     }
  15.     map { uri_unescape($_) } split("/", $old, -1);
  16. }
  17.  
  18. 1;
  19.