16 lines
393 B
Perl
16 lines
393 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# This is now just a wrapper around the non-LJ-specific multicvs.pl
|
||
|
|
#
|
||
|
|
|
||
|
|
unless (-d $ENV{'LJHOME'}) {
|
||
|
|
die "\$LJHOME not set.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
# strip off paths beginning with LJHOME
|
||
|
|
# (useful if you tab-complete filenames)
|
||
|
|
$_ =~ s!\Q$ENV{'LJHOME'}\E/?!! foreach (@ARGV);
|
||
|
|
|
||
|
|
exit system("$ENV{'LJHOME'}/bin/multicvs.pl",
|
||
|
|
"--conf=$ENV{'LJHOME'}/cvs/multicvs.conf", @ARGV);
|