Select Code to Download

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

All Testcase Versions:1.4 1.3 1.2 1.1

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

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

Failed to retrieve revision info of test case - TC00631.xml due to sys
+tem error: Can't locate object method "load" via package "Rcs" line 1
+514.

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

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

    
use Rcs;
#use RCS;
...
        print "1.2version:$specific_version\n";

    }; # end of eval