perl-Cvs woes

[noeldamonmiller]

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

 

[Tad McClellan]

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.

 

[noeldamonmiller]

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();

 

[Tintin]

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?