perl-Cvs woes

Discussion in 'Perl Misc' started by noeldamonmiller@gmail.com, Mar 9, 2005.

  1. Guest

    All,


    I'm trying to simply print a cvs status command and it isn't
    working:

    Here's the error

    Can't modify constant item in scalar assignment at
    script/report_revision.pl line 36, near ");"
    BEGIN failed--compilation aborted at -e line 835 (#1)
    (F) You aren't allowed to assign to the item indicated, or
    otherwise try

    to change it, such as with an auto-increment.

    Uncaught exception from user code:
    Can't modify constant item in scalar assignment at
    script/report_revision.pl line 36, near ");"
    BEGIN failed--compilation aborted at -e line 835.

    Here's the script so far:

    use Cvs;
    use diagnostics;
    use Carp;
    use warnings;

    # We plan to use PAR and archive all modules, so no worries about
    having
    # a full compliment of modules. Perhaps we'll even link perl and not
    have
    # to package it either

    my $cvs = new Cvs
    (
    '/tmp/cvs/java/com/random',
    cvsroot => '/usr/local/cvs',
    password => 'secret'
    ) or die $Cvs::ERROR;

    #my $status = $cvs->status();
    #print "$REPORT_results\n";

    Cvs::Result::StatusItem = $cvs->status();
    Cvs::Result::StatusList = $cvs->status();

    $cvs->logout();


    I read the docs for Cvs, just don't get it..

    Thanks for your help in advance.

    Noel
     
    , Mar 9, 2005
    #1
    1. Advertising

  2. <> wrote:

    > Can't modify constant item in scalar assignment at
    > script/report_revision.pl line 36, near ");"

    ^^^^^^^
    ^^^^^^^

    > Here's the script so far:



    [snip _25_ line program, with line numbers broken by word-wrap]


    Show the real code if you expect real help.


    --
    Tad McClellan SGML consulting
    Perl programming
    Fort Worth, Texas
     
    Tad McClellan, Mar 9, 2005
    #2
    1. Advertising

  3. Guest

    ok, we take out the comments and get

    use Cvs;
    use diagnostics;
    use Carp;
    use warnings;

    my $cvs = new Cvs
    (
    '/tmp/cvs/java/com/random',
    cvsroot => '/usr/local/cvs',
    password => 'secret'
    ) or die $Cvs::ERROR;

    #my $status = $cvs->status();
    #print "$REPORT_results\n";

    Cvs::Result::StatusItem = $cvs->status();
    Cvs::Result::StatusList = $cvs->status();

    $cvs->logout();
     
    , Mar 9, 2005
    #3
  4. Tintin Guest

    <> wrote in message
    news:...
    > ok, we take out the comments and get
    >
    > use Cvs;
    > use diagnostics;
    > use Carp;
    > use warnings;
    >
    > my $cvs = new Cvs
    > (
    > '/tmp/cvs/java/com/random',
    > cvsroot => '/usr/local/cvs',
    > password => 'secret'
    > ) or die $Cvs::ERROR;
    >
    > #my $status = $cvs->status();
    > #print "$REPORT_results\n";
    >
    > Cvs::Result::StatusItem = $cvs->status();
    > Cvs::Result::StatusList = $cvs->status();
    >
    > $cvs->logout();


    That's very nice. Would you like an award for it?
     
    Tintin, Mar 12, 2005
    #4
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. ddog
    Replies:
    3
    Views:
    613
    Jason Whaley
    Aug 4, 2007
  2. Replies:
    1
    Views:
    615
    GArlington
    Aug 31, 2007
  3. David Ross
    Replies:
    5
    Views:
    169
    Nicholas Van Weerdenburg
    Dec 5, 2004
  4. Holger Biebinger

    CVS access via PERL

    Holger Biebinger, Apr 19, 2004, in forum: Perl Misc
    Replies:
    4
    Views:
    329
    Holger Biebinger
    Apr 20, 2004
  5. Chris Weiss

    How to capture output of CVS via Perl?

    Chris Weiss, Oct 8, 2004, in forum: Perl Misc
    Replies:
    7
    Views:
    198
    Tad McClellan
    Oct 9, 2004
Loading...

Share This Page