From 9ecf5c3066f24b12f084be1ed3521c0af8e404e1 Mon Sep 17 00:00:00 2001 From: des Date: Mon, 9 Oct 2000 11:45:46 +0000 Subject: Look for pkg-descr rather than pkg/DESCR. Always use the -d option when invoking CVS, to work around breakage in CVS (said breakage has reportedly been fixed in 1.11, but I haven't verified this) Bump version number. --- misc/porteasy/Makefile | 2 +- misc/porteasy/src/porteasy.pl | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) (limited to 'misc/porteasy') diff --git a/misc/porteasy/Makefile b/misc/porteasy/Makefile index 14ba69544491..640577dc2672 100644 --- a/misc/porteasy/Makefile +++ b/misc/porteasy/Makefile @@ -8,7 +8,7 @@ # PORTNAME= porteasy -PORTVERSION= 1.6 +PORTVERSION= 1.7 CATEGORIES= misc MASTER_SITES= # none DISTFILES= # none diff --git a/misc/porteasy/src/porteasy.pl b/misc/porteasy/src/porteasy.pl index f44afce3349d..eb83b9d631d3 100644 --- a/misc/porteasy/src/porteasy.pl +++ b/misc/porteasy/src/porteasy.pl @@ -34,7 +34,7 @@ use Data::Dumper; use Fcntl; use Getopt::Long; -my $VERSION = "1.6"; +my $VERSION = "1.7"; # Constants sub ANONCVS_ROOT { ":pserver:anoncvs\@anoncvs.FreeBSD.org:/home/ncvs" } @@ -146,7 +146,7 @@ sub cvs($;@) { my @args; # Arguments to CVS - push(@args, "-f", "-z3", "-R", + push(@args, "-f", "-z3", "-R", "-d$cvsroot", $verbose ? "-q" : "-Q", $cmd, "-A"); if ($cmd eq "checkout") { push(@args, "-P"); @@ -354,7 +354,7 @@ sub show_port_info($) { local *FILE; # File handle my $info; # Port info - sysopen(FILE, "$portsdir/$ports{$port}/pkg/DESCR", O_RDONLY) + sysopen(FILE, "$portsdir/$ports{$port}/pkg-descr", O_RDONLY) or err(1, "can't read description for $port"); $info = join("| ", ); close(FILE); @@ -552,10 +552,10 @@ MAIN:{ if ($anoncvs) { $cvsroot = &ANONCVS_ROOT; } - if ($cvsroot) { - $ENV{'CVSROOT'} = $cvsroot; + if (!$cvsroot) { + $cvsroot = $ENV{'CVSROOT'}; } - if (!$ENV{'CVSROOT'}) { + if (!$cvsroot) { errx(1, "No CVS root, please use the -r option or set \$CVSROOT"); } -- cgit