sub copyCtestBinaries { my $self = shift; my $binDir = $self->getBinDir(); if ( $binDir eq '' ) { warn "Could not set up C test binary area: $!\n"; print "Received " . $self->getBinDir() . " for binDir.\n"; return; } $binDir = $binDir . "\/*"; print "BinDir = $binDir.\n"; my $appBin = $self->app1() . "/bin"; print "AppDir = $appBin.\n"; `cp $binDir $appBin`; }