Re: Re: Perl source safe get by label failure

[mgibian]

The code I'm using comes in two parts. The general function for running source safe commands is:

sub PerformSS {
   my $self = shift;
   my ($cmdArg) = @_;
   
   my $cmd = "ss " . $cmdArg;
   my $status = 0;
   if ($self->doSS) {
      $status = system("$cmd 1>>$errorfile 2>&1");
      $self->checkError($status, "PerformSS $cmd failed $status $!");
      $self->trace("--- completed $cmd ---\n");
   } else {
      $self->trace("--- PerformSS did not $cmd ---\n");
   }
   return $status;
}

The call I am trying to use to fetch by label from source safe is:

      $status = $self->PerformSS("get \$/project -R -I-Y -V\"$label\""
+);

Note that checkError issues the error message and some addition supporting information if $status is not zero.

On the other hand, the following code works just fine, which is why I had omitted the code in my original posting. The question I have is still... is there something special or different about how the fetch by label returns?

      $status = $self->PerformSS("get \$/project -R -I-Y");