Damnit, where's perl -c when you need it? I fubar'd the last regex and it should look like

while ( $path =~ s#(/[^/]+)?/\.(\.)?/#defined($2) ? "/" : "$1/"#e ) {;
+}
[download]

mea maxima culpa
Mik Firestone ( perlus bigotus maximus )