ossp-pkg/shiela/shiela.pl 1.11 -> 1.12
--- shiela.pl 2001/08/30 07:41:03 1.11
+++ shiela.pl 2001/12/03 11:39:49 1.12
@@ -980,7 +980,12 @@
# take the arguments
my ($tagname, $tagop, $cvsdir, %cvsfiles) = @{$PA->{ARG}};
+
+ # strip absolute prefix
$cvsdir =~ s|^$RT->{cvsroot}/?||;
+ my $cvsdirphysical = `cd $RT->{cvsroot} && pwd`;
+ $cvsdirphysical =~ s|\n$||s;
+ $cvsdir =~ s|^$cvsdirphysical/?||;
# provide access control
my @paths = ();
|
|
