perl quoting

Author: scivision

+stdlib/+perl/device.m

@@ -1,6 +1,13 @@
 function [r, cmd] = device(file)
 
-cmd = sprintf('''%s'' -e ''($f=shift) && -e $f or exit 1; print +(stat $f)[0]'' ''%s''', stdlib.perl_exe(), file);
+c = '($f=shift) && -e $f or exit 1; print +(stat $f)[0]';
+if ispc()
+  k = sprintf('"%s"', c);
+else
+  k = sprintf('''%s''', c);
+end
+
+cmd = sprintf('"%s" -e %s "%s"', stdlib.perl_exe(), k, file);
 
 [s, r] = system(cmd);
 if s == 0

+stdlib/+perl/inode.m

@@ -1,6 +1,13 @@
 function [r, cmd] = inode(file)
 
-cmd = sprintf('''%s'' -e ''($f=shift) && -e $f or exit 1; print +(stat $f)[1]'' ''%s''', stdlib.perl_exe(), file);
+c = '($f=shift) && -e $f or exit 1; print +(stat $f)[1]';
+if ispc()
+  k = sprintf('"%s"', c);
+else
+  k = sprintf('''%s''', c);
+end
+
+cmd = sprintf('"%s" -e %s "%s"', stdlib.perl_exe(), k, file);
 
 [s, r] = system(cmd);
 if s == 0

+stdlib/+perl/samepath.m

@@ -1,7 +1,13 @@
 function [r, cmd] = samepath(file1, file2)
 
-cmd = sprintf('''%s'' -e ''(@ARGV==2) or exit 1; @s1 = stat shift or exit 1; @s2 = stat shift or exit 1; exit(($s1[0]==$s2[0] && $s1[1]==$s2[1]) ? 0 : 1)'' "%s" "%s"', ...
-        stdlib.perl_exe(), file1, file2);
+c = '(@ARGV==2) or exit 1; @s1 = stat shift or exit 1; @s2 = stat shift or exit 1; exit(($s1[0]==$s2[0] && $s1[1]==$s2[1]) ? 0 : 1)';
+if ispc()
+  k = sprintf('"%s"', c);
+else
+  k = sprintf('''%s''', c);
+end
+
+cmd = sprintf('"%s" -e %s "%s" "%s"', stdlib.perl_exe(), k, file1, file2);
 
 s = system(cmd);