Hi Monks,
I was using perl module Rcs for Revision Control System.In that i was using an method to retrive all my versions of Testcases. 

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

[download]
Output of that method is 
All Testcase Versions:1.4 1.3 1.2 1.1

[download]
In that Module i was trying to get the file by giving versions as input
something as 
To retrieve a specific version
my $specific_version = $rcsObj->get('1.2');

[download]
But this Functionality was not present in Rcs.pm,so i tried to parse that using Rcs::Parser Module.
But in Rcs::Parser Module they were using 
  my $rcs = new RCS;
  my $ret = $rcs->load($filename);
  my $specific_version = $rcs->get('1.2');

[download]
But there was no RCS.pm module,but they have used as
my$rcs=new RCS;
I have changed that to
my $rcs=new Rcs;
in both my code and also in its Parser.pm file.But i am getting error as 
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.

[download]

I have also tried to use 
 my $rcs = Rcs::Parser->new;
 my $ret = $rcs->load($rcstestcasename);
 my $specific_version = $rcs->get('1.2');

[download]
But i am not getting any Output.
Can any one help me in identifying what this my $rcs=new RCS;
Do i need to change anythign in my code.
OR,is there any module to retrive my files based on my version input.
Help needed to retrive my older files based on versions as input in CVS.
My Testcase in CVS is in Xml format.
say TC00631.xml and TC00631.xml,v 
cat TC00631.xml,v
gives,
1.2
log
@Auto checked in by Portal
@

[download]
My Code is 
    
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

[download]
Can any one help in this regard.
Thanks,
Srins.

20060726 Janitored by Corion: Removed PRE tags, as per Writeup Formatting Tips

In reply to Can any one help to correct the error which i got while using Rcs.pm in the Code by srins

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.