view release on metacpan or  search on metacpan

lib/Filesys/CygwinPaths.pm  view on Meta::CPAN

  my $arg = shift;
  return $arg unless $arg =~/^~/;
  my $pathsep = (defined($PATHSMODE) && $PATHSMODE eq 'cyg_win32')?
          '\\' : '/';
  my @homey = split( /\/|$pathsep/, $arg, 2 );
  Carp::croak "Cannot understand your arg: $_[0] -- " unless
     $homey[0] =~/^~\w*\z/;
  # pattern ' m/^~(\w+)?/ ' is tilde with optional username
	 $homey[0] =~ s%^~(\w*)%$1 ?
		   ((getpwnam($1))[7] || "~$1")
		:   (getpwuid($>))[7]
		      %ex;
  return join( $pathsep, $homey[0],$homey[1] );
}

sub vetted_path {
  my $returnpath;
  my $inpath = _handle_tilde(shift);
  if(not defined $PATHSMODE) {
	Carp::carp 'You ought to set $PATHSMODE'.
	 ' before calling this subroutine!'.