- my ($p) = @_;
- return "/$specpath" if !defined $p;
- return "" if $p eq $specpath;
- return substr($specpath,length($p))
- if substr($specpath,0,length($p)+1) eq "$p/";
+ my ($vsubpath) = @_;
+ syslog 'debug', sprintf "DEBUG remain_path %s $specpath",
+ (defined $vsubpath ? $vsubpath : '<undef>');
+ return "/$specpath" if !defined $vsubpath;
+ return "" if $vsubpath eq $specpath;
+ return substr($specpath,length($vsubpath))
+ if substr($specpath,0,length($vsubpath)+1) eq "$vsubpath/";