my @all_testcase_versions=$rcsObj->revisions;
print "All Testcase Versions:@all_testcase_versions\n";

##</code><code>##

All Testcase Versions:1.4 1.3 1.2 1.1

##</code><code>##

To retrieve a specific version
my $specific_version = $rcsObj->get('1.2');

##</code><code>##

  my $rcs = new RCS;
  my $ret = $rcs->load($filename);
  my $specific_version = $rcs->get('1.2');

##</code><code>##

Failed to retrieve revision info of test case - TC00631.xml due to system error: Can't locate object method "load" via package "Rcs" line 1514. 

##</code><code>##

 my $rcs = Rcs::Parser->new;
 my $ret = $rcs->load($rcstestcasename);
 my $specific_version = $rcs->get('1.2');

##</code><code>##

cat TC00631.xml,v
gives,
1.2
log
@Auto checked in by Portal
@


##</code><code>##

    
use Rcs;
#use RCS;
use Rcs::Parser;
 # create a Rcs instance for the test case's revision info
        my $rcsObj = Rcs->new;
        $rcsObj->rcsdir(dirname($rcsDir));
        $rcsObj->workdir(dirname($rcsDir));
        $rcsObj->file($testCaseName);
        my $rcstestcasename=$rcsObj->file($testCaseName); 
        print "FileName:$rcstestcasename\n";

        # abstract interesting revision info
     my @all_testcase_versions=$rcsObj->revisions;
     print "All Testcase Versions:@all_testcase_versions\n";

        my $rcs = Rcs::Parser->new;
        my $ret = $rcs->load($rcstestcasename);
        my $specific_version = $rcs->get('1.2');
        print "1.2version:$specific_version\n";

    }; # end of eval