view release on metacpan or  search on metacpan

CHANGES-1.0  view on Meta::CPAN

[Changes for 0.25 - 25 Oct, 2004]

* Fix the mkdir sequence which causes first-time svk users fatal error.
  [Autrijus]

[Changes for 0.24 - 24 Oct, 2004]

* Fix svk ps regression for svn 1.0.x.

* Fallback to getpwuid($<) in case $ENV{HOME} or $ENV{USER} is not
  set, as is the case in Fink.  Reported by Christian Schaffner.
  [Autrijus]

* Fix "svk pull -a" when the current directory is not a
  checkout path. [Autrijus]

* Fix checkout_delta cache on win32. [Autrijus]

* Fix svk move copath destination with trailing slash.

bin/svk  view on Meta::CPAN

    if ($show_version || ($cmd && $cmd eq 'version')) {
	print loc("This is svk, version %1 (using Subversion bindings %2)\n",
        $VERSION, $SVN::Core::VERSION);
	exit 0;
    }
}

$ENV{HOME} ||= (
    $ENV{HOMEDRIVE} ? catdir(@ENV{qw( HOMEDRIVE HOMEPATH )}) : ''
) || (getpwuid($<))[7];
$ENV{USER} ||= (
    (defined &Win32::LoginName) ? Win32::LoginName() : ''
) || $ENV{USERNAME} || (getpwuid($<))[0];

my $svkpath = find_dotsvk || $ENV{SVKROOT} || catfile($ENV{HOME}, ".svk");
my $floating = undef;
if (-e catfile($svkpath, 'floating')) {
    require Path::Class;
    $floating = Path::Class::Dir->new( $svkpath )->parent();
}
my $ret;
{
    my $xd = SVK::XD->new ( giantlock => catfile($svkpath, 'lock'),

lib/SVK/Test.pm  view on Meta::CPAN

}

for (qw/SVKRESOLVE SVKMERGE SVKDIFF SVKPGP SVKLOGOUTPUT LC_CTYPE LC_ALL LANG LC_MESSAGES/) {
    $ENV{$_} = '' if $ENV{$_};
}
$ENV{LANGUAGE} = $ENV{LANGUAGES} = 'i-default';

$ENV{SVKRESOLVE} = 's'; # default for test
$ENV{HOME} ||= (
    $ENV{HOMEDRIVE} ? catdir(@ENV{qw( HOMEDRIVE HOMEPATH )}) : ''
) || (getpwuid($<))[7];
$ENV{USER} ||= (
    (defined &Win32::LoginName) ? Win32::LoginName() : ''
) || $ENV{USERNAME} || (getpwuid($<))[0];

# Make "prove -l" happy; abs_path() returns "undef" if the path 
# does not exist. This makes perl very unhappy.
@INC = grep defined, map abs_path($_), @INC;

if ($ENV{DEBUG}) {
    {
        package Tie::StdScalar::Tee;
        require Tie::Scalar;
        our @ISA = 'Tie::StdScalar';