< $VERSION = '1.5'; --- > $VERSION = '1.4'; > > use Cwd; 72,73c74,79 < < $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' --- > my @args = @_; > foreach (@args) { > # append a slash to each argument unless it has one there > $_ .= "/" if $_ eq '' || substr($_,-1) ne "/"; > } > return $self->canonpath(join('', @args)); 85c91