/[stow]/stow/stow.in
ViewVC logotype

Diff of /stow/stow.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by gael, Wed Jan 9 01:25:55 2002 UTC revision 1.11 by gmorin, Sun Jan 20 11:42:50 2002 UTC
# Line 545  sub parent { Line 545  sub parent {
545    local($path) = join('/', @_);    local($path) = join('/', @_);
546    local(@elts) = split(/\/+/, $path);    local(@elts) = split(/\/+/, $path);
547    pop(@elts);    pop(@elts);
548    join('/', @elts);    # if @_ = ('/foo')
549      # join('/',@elts) would be ''
550      join('/', @elts) || '/';
551  }  }
552    
553  sub usage {  sub usage {

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26