ClearCase-Argv> ct diff -diff -pred Argv.pm
18c18
< 
---
> my %pidcount;
425d424
< 	# Send an explicit "exit" command and close up shop.
426a426
> 	return 0 if --$pidcount{$self->{IPC}->{PID}};
426a427
> 	# Send an explicit "exit" command and close up shop.
440c441,444
< 
---
>     if (($self ne $class) and $class->{IPC}) {
> 	++$ipccount{$class->{IPC}};
> 	return 0;
>     }
616a621,634
> 
> # Constructor, and copy constructor as clone, with $proto
> sub new {
>     my $proto = shift;
>     my $self = $proto->SUPER::new(@_);
>     if (ref($proto)) {
> 	# Correct the effect of the base cloning on globs
> 	my $down = $proto->{IPC}->{DOWN};
> 	$self->{IPC}->{DOWN} = $down;
> 	my $back = $proto->{IPC}->{BACK};
> 	$self->{IPC}->{BACK} = $back;
> 	++$ipccount{$proto->{IPC}};
>     }
> }

##</code><code>##

...
Can't call method "qx" without a package or object reference at test.pl line 50.

##</code><code>##

49: my $wdv = ClearCase::Argv->new("pwv -wdview -s");
50: my $view = $wdv->qx;