if ( $self->{bareboard} ) { my @args = ('cp', '-cdpPr', $self->{publicDir}, $oldPublic); system(@args); if ($? == -1) { DDialog->new( "ERROR", "failed to execute: $!\n" ); DDialog->destroy(); } elsif ($? & 127) { my $t1 = ($? & 127); my $t2 = ($? & 128) ? 'with' : 'without'; DDialog->new( "ERROR", "died w sig $t1, $t2 coredump\n" ); DDialog->destroy(); } else { my $t1 = $? >> 8; DDialog->new( "ERROR", "child exited with value $t1\n" ); DDialog->destroy(); } } else { rename $self->{publicDir}, $oldPublic; }