view release on metacpan or  search on metacpan

lib/DynGig/Util/Symlink.pm  view on Meta::CPAN

    }
    elsif ( defined ( my $path = $this->{path} ) )
    {
        unless ( defined $current && $path eq $current )
        {
            croak "rename: $!" if -l $link && ! rename $link, $rollback; 
            croak "symlink: $!" unless symlink $path, $link;
        }
    }

    system( "chown -h $user $link $rollback" ) unless $<;
    croak "chdir $cwd: $!" unless chdir $cwd;
    return $previous;
}

sub check
{
    my $this = shift @_;
    my $cwd = $this->{oldcwd};

    croak "chdir $cwd: $!" unless chdir $cwd;