diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-06 14:32:30 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-06 14:58:05 +0200 |
| commit | a0dac729be1875c9918134b10bc64f7e72b73490 (patch) | |
| tree | eee83e5afc4023f999b5e92b2c8861a8f7fb04ed | |
| parent | 61b90f5713b2a9dd2c4513364506b4b8e9a502e3 (diff) | |
| download | perl-Hal-Cdroms-a0dac729be1875c9918134b10bc64f7e72b73490.tar perl-Hal-Cdroms-a0dac729be1875c9918134b10bc64f7e72b73490.tar.gz perl-Hal-Cdroms-a0dac729be1875c9918134b10bc64f7e72b73490.tar.bz2 perl-Hal-Cdroms-a0dac729be1875c9918134b10bc64f7e72b73490.tar.xz perl-Hal-Cdroms-a0dac729be1875c9918134b10bc64f7e72b73490.zip | |
Make it easier to debug
| -rw-r--r-- | t/helper.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/helper.pm b/t/helper.pm index bcb72e0..bd3e453 100644 --- a/t/helper.pm +++ b/t/helper.pm @@ -24,7 +24,8 @@ sub create_fake_media { my ($_prefix, $device) = split("block/", $paths[0]); if ($o_delay) { my $at = get_at_command(); - system("echo 'sleep $o_delay; dd if=t/cdroms-test.iso of=/dev/$device conv=nocreat' | $at >& /dev/null") == 0 + $at .= " >& /dev/null"; # comment for debugging + system("echo 'sleep $o_delay; dd if=t/cdroms-test.iso of=/dev/$device conv=nocreat' | $at") == 0 or die "Failed to schedule copy of ISO to fake SCSI device\n"; } else { system("dd if=t/cdroms-test.iso of=/dev/$device conv=nocreat >& /dev/null") == 0 |