- @page_locs="$from/$page";
- $from=dirname($from);
- $default_loc="$from/$page";
- while (length $from) {
- push @page_locs, "$from/$page";
- $from=dirname($from);
+ my $dir=$from."/";
+ $dir=~s/[^/]+\/$//;
+ push @page_locs, $dir.$page;
+ push @page_locs, "$from/$page";
+ while (length $dir) {
+ $dir=~s/[^/]+\/$//;
+ push @page_locs, $dir.$page;