my $globpath = $self->IssueDir . "/${prefix}_${base}*.cil";
my @filenames;
if ( $self->vcs_revision ) {
- @filenames = $self->vcs->glob_rev($self->vcs_revision, $globpath);
+ @filenames = $self->vcs->glob_rev($self->vcs_revision, $globpath);
}
else {
- @filenames = bsd_glob($globpath);
+ @filenames = bsd_glob($globpath);
}
my @entities;
my ($self, $args) = @_;
if ( $args->{r} ) {
- $self->vcs_revision($args->{r});
- if ( !$self->VCS or $self->VCS eq "Null" ) {
- warn "No VCS set in config file!\n";
- }
+ $self->vcs_revision($args->{r});
+ if ( !$self->VCS or $self->VCS eq "Null" ) {
+ warn "No VCS set in config file!\n";
+ }
}
}
sub file_exists {
my ($self, $filename) = @_;
if ( $self->vcs_revision ) {
- $self->vcs->file_exists($self->vcs_revision, $filename);
+ $self->vcs->file_exists($self->vcs_revision, $filename);
}
else {
- -f $filename;
+ -f $filename;
}
}