Parent Directory | Revision Log | 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 { |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |