appveyor fix 13: win32 path hack

diff --git a/fortune-mod/tests/t/test-fortune-m.t b/fortune-mod/tests/t/test-fortune-m.t
index ba7622dd0acb8f333440206e68dbb6b798bc546e..c0aed67edfd0386180ab8c0b2c876bb4b1f30522 100644 (file)
--- a/fortune-mod/tests/t/test-fortune-m.t
+++ b/fortune-mod/tests/t/test-fortune-m.t
@@ -2,6 +2,7 @@
 
 use strict;
 use warnings;
+use 5.014;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
@@ -10,7 +11,14 @@ use Test::More tests => 1;
 
 {
     my $inst_dir = FortTestInst::install("fortune-m");
+    my $IS_WIN   = ( $^O eq "MSWin32" );
     my @cmd      = ( $inst_dir->child( 'games', 'fortune' ), '-m', 'giants' );
+    if ($IS_WIN)
+    {
+        print "IS_WIN=1\n";
+        $cmd[0] = ( "$cmd[0]" =~ s#/#\\#gr );
+        print "TransformedRun [@cmd]\n";
+    }
     print "Running [@cmd]\n";
     my $text = `@cmd`;
     my $rc   = $?;