-print "now really planning to backup hier of $item\n";
- &backup_hierarchy($prefix, $number, $dir_for_hierarchy . $extra_piece, &basename($item));
+#print "now really planning to backup hier of $item\n";
+ # normal backup had no extra component.
+ local $upper_dir = &dirname($item);
+ local $dir_plus_base = &basename($item);
+ # if we did have an extra component, we do this a bit differently.
+ if ($had_extra) {
+ $upper_dir = &dirname( &dirname($item) );
+ $dir_plus_base = &basename( &dirname($item) ) . "/" . &basename($item);
+ }
+#print "using upper=$upper_dir and dir+base=$dir_plus_base\n";
+ &backup_hierarchy($prefix, $number, $upper_dir, $dir_plus_base);