aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2020-05-06 11:22:53 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2020-05-06 14:57:35 +0200
commit61b90f5713b2a9dd2c4513364506b4b8e9a502e3 (patch)
tree2f222dbebb6f4c08b772d23081d7f2ac204a2455
parent98b362639e082a9a3d33f0a29a09d2763e7c10f0 (diff)
downloadperl-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.pm3
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() {