- ($_, @_) = @$_ if ref $_ eq "ARRAY";
- # add default path unless specified
- $_ = $this->{-path} . $this->{-seperator} . $_
- if defined $this->{-seperator} and not /\Q$this->{-seperator}/;
+ my @args;
+ ($id, @args) = @$id if ref $id eq "ARRAY";
+ # add leading base path unless specified absolute
+ $id = $this->{-path} . $id
+ if defined $this->{-path} and not $id =~ s/^\Q$this->{-seperator}//;