ClearCase-Argv> perl -Iblib/lib -Iblib/arch -e 'use ClearCase::Argv;sub p{$a=shift;print"--${a}--\n";system(qw(pgrep cleartool))}sub v{$c=shift;$c->argv(q(pwv))->system}ClearCase::Argv->ipc(1);p(1);$c1=ClearCase::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--
22003
--2--
22003
Working directory view: emagiro
Set view: emagiro
--3--
22003
Attempt to bless into a reference at blib/lib/ClearCase/Argv.pm line 637, <GEN1> line 3.

##</code><code>##

    bless $self, $proto;

##</code><code>##

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