|
Check-in Number:
|
1398 | |
| Date: |
2001-Dec-03 12:39:49 (local)
2001-Dec-03 11:39:49 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
fix tag hook |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
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 = ();
|
|
