diff options
Diffstat (limited to 'Perl/export2cpan')
-rwxr-xr-x | Perl/export2cpan | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Perl/export2cpan b/Perl/export2cpan index 635a17c..23e0c06 100755 --- a/Perl/export2cpan +++ b/Perl/export2cpan @@ -21,7 +21,8 @@ use strict; my $ZINC_PREFIX = 'tk-zinc'; -my $DEFAULT_SERVER = 'liszt.pii.ath.cena.fr'; +my $DEFAULT_SERVER = 'cvs.tkzinc.org'; +my $DEFAULT_CVS_MODULE = '/srv/tkzinc/cvsroot'; my $TMP = '/tmp/forCPAN'; # computing major, minor and patchlevel from var defined in ../configure.in @@ -97,8 +98,8 @@ if ($FROM_CVS) { system ("mkdir $TMP"); chdir("$TMP"); # the following command always fail with cvs 1.11.1p1 !! - # my $command = "cd $TMP; cvs -d $server:/pii/repository export -r $cvstag -d $DIR_FROM_CVS Tkzinc"; - my $command = "cd $TMP; cvs -d /pii/repository export -r $cvstag -d $DIR_FROM_CVS Tkzinc"; + my $command = "cd $TMP; cvs -d $server:$DEFAULT_CVS_MODULE export -r $cvstag -d $DIR_FROM_CVS Tkzinc"; + # my $command = "cd $TMP; cvs -d /pii/repository export -r $cvstag -d $DIR_FROM_CVS Tkzinc"; print "$command\n"; my $error = system($command); die "CVS extraction did not succeed" if $error; |