From fc742e3f93e65783dc7457d7317e20df710e3ac1 Mon Sep 17 00:00:00 2001
From: "U-CORP\\konovv" <konovv@RUENKONOVVL4C.corp.emc.com>
Date: Sat, 20 Oct 2018 11:05:21 +0000
Subject: [PATCH] few more touches so strawberry perl build module OK

---
 ByteLoader/hints/522_patched.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ByteLoader/hints/522_patched.pl b/ByteLoader/hints/522_patched.pl
index ee7637542..9d8ea93bc 100644
--- a/ByteLoader/hints/522_patched.pl
+++ b/ByteLoader/hints/522_patched.pl
@@ -33,7 +33,7 @@ sub probe_byteloader {
     require Config;
     system "$Config::Config{make} linkext";
   }
-  system "$^X -Mblib -MO=-qq,Bytecode,-H,-o$out -e'print q(ok)'";
+  system "$^X -Mblib -MO=-qq,Bytecode,-H,-o$out -e\"print q(ok)\"";
   return "0" unless -s $out;
   my $ret = `$^X -Mblib $out`;
   unlink $out;