projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of https://github.com/adefaria/clearscm
[clearscm.git]
/
lib
/
Clearcase
/
Vobs.pm
diff --git
a/lib/Clearcase/Vobs.pm
b/lib/Clearcase/Vobs.pm
index
9630a7f
..
ad175f4
100644
(file)
--- a/
lib/Clearcase/Vobs.pm
+++ b/
lib/Clearcase/Vobs.pm
@@
-72,12
+72,12
@@
use Clearcase;
use Display;
use OSDep;
use Display;
use OSDep;
-sub new () {
- my ($class) = @_;
+sub new (
;$
) {
+ my ($class
, $host, $region
) = @_;
=pod
=pod
-=head2 new (
tag
)
+=head2 new (
host
)
Construct a new Clearcase Vobs object.
Construct a new Clearcase Vobs object.
@@
-87,7
+87,10
@@
Parameters:
=over
=over
-=item none
+=item host
+
+If host is specified then limit the vob list to only those vobs on that host. If
+host is not specified then all vobs are considered
=back
=back
@@
-107,18
+110,13
@@
Returns:
=cut
=cut
- my ($status, @output) = $Clearcase::CC->execute ("lsvob -short");
+ my $cmd = 'lsvob -short';
+ $cmd .= " -host $host" if $host;
+ $cmd .= " -region $region" if $region;
-
return if $status
;
+
my ($status, @output) = $Clearcase::CC->execute ($cmd)
;
- # Strip $VOBTAG_PREFIX
- foreach (@output) {
- if ($ARCH eq 'windows' or $ARCH eq 'cygwin') {
- s/\\//;
- } else {
- s/$Clearcase::VOBTAG_PREFIX//;
- } # if
- } # foreach
+ return if $status;
return bless {
vobs => \@output
return bless {
vobs => \@output