From 61b90f5713b2a9dd2c4513364506b4b8e9a502e3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 6 May 2020 11:22:53 +0200 Subject: 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... --- t/helper.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 't/helper.pm') 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() { -- cgit v1.2.1