diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-06 11:22:53 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-06 14:57:35 +0200 |
| commit | 61b90f5713b2a9dd2c4513364506b4b8e9a502e3 (patch) | |
| tree | 2f222dbebb6f4c08b772d23081d7f2ac204a2455 | |
| parent | 98b362639e082a9a3d33f0a29a09d2763e7c10f0 (diff) | |
| download | perl-Hal-Cdroms-61b90f5713b2a9dd2c4513364506b4b8e9a502e3.tar perl-Hal-Cdroms-61b90f5713b2a9dd2c4513364506b4b8e9a502e3.tar.gz perl-Hal-Cdroms-61b90f5713b2a9dd2c4513364506b4b8e9a502e3.tar.bz2 perl-Hal-Cdroms-61b90f5713b2a9dd2c4513364506b4b8e9a502e3.tar.xz perl-Hal-Cdroms-61b90f5713b2a9dd2c4513364506b4b8e9a502e3.zip | |
at -M only works on Linux
Let's not break CPAN smokers on next version upload :-)
It might be just simpler to use 'system("cmd... &")' instead of at...
| -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 10331a1..bcb72e0 100644 --- a/t/helper.pm +++ b/t/helper.pm @@ -1,11 +1,12 @@ package helper; use strict; +use Config; use base 'Exporter'; our @EXPORT = qw(can_create_fake_media create_fake_media find_mount_point get_at_command remove_fake_media ); sub get_at_command() { - 'at -M now'; + $Config{myuname} =~ /linux/i ? 'at -M now' : 'at now'; } sub can_create_fake_media() { |