Select Code to Download

ClearCase-Argv> perl -Iblib/lib -Iblib/arch -e 'use ClearCase::Argv;su
+b p{$a=shift;print"--${a}--\n";system(qw(pgrep cleartool))}sub v{$c=s
+hift;$c->argv(q(pwv))->system}ClearCase::Argv->ipc(1);p(1);$c1=ClearC
+ase::Argv->new;p(2);$c2=ClearCase::Argv->new;v($c1);p(3);$c1->clone->
+argv(q(pwv));p(4);v($c1);p(5);v($c1);'
--1--
...
--3--
22003
Attempt to bless into a reference at blib/lib/ClearCase/Argv.pm line 6
+37, <GEN1> line 3.

    bless $self, $proto;

    bless $self, ref($proto) ? ref($proto) : $proto;