diff --git a/lib/Test/Modern.pm b/lib/Test/Modern.pm index 5e3e7b3..d2896b3 100644 --- a/lib/Test/Modern.pm +++ b/lib/Test/Modern.pm @@ -235,6 +235,9 @@ sub _setup_inc return unless exists($opts->{into_file}); + # Workaround for File::Spec on legacy Redhat?? + local $SIG{__WARN__} = 'IGNORE'; + my $dir = do { my @tmp = 'File::Spec'->splitpath($opts->{into_file}); pop @tmp;