# New Ticket Created by FranÃois PERRAD
# Please include the string: [perl #34605]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=34605 >
After Dan's response concerning "Parrot_Exec_OS_Command interface ?".
He says : This is a low-level interface and is designed to be OS-dependent.
I add a new key in Configure : 'slash_exec'
I patch the following files :
config/init/data.pl
config/init/hints/mswin32.pl
config/init/hints/msys.pl
t/pmc/sys.t
Francois.
--- data.pl.orig 2005-02-21 11:56:08.000000000 +0100
+++ data.pl 2005-03-19 11:53:30.000000000 +0100
@@ -130,6 +130,7 @@
cp => 'cp',
lns => $Config{lns}, # soft link
slash => '/',
+ slash_exec => '/',
VERSION => $main::parrot_version,
MAJOR => $main::parrot_version[0],
--- mswin32.pl.orig 2005-03-15 23:39:10.000000000 +0100
+++ mswin32.pl 2005-03-19 11:56:02.000000000 +0100
@@ -23,6 +23,7 @@
PQ => '"',
make_c=> '$(PERL) -e "chdir shift @ARGV; system \'$(MAKE)\',
@ARGV; exit $$? >> 8;"',
ncilib_link_extra => '-def:src/libnci_test.def',
+ slash_exec => '\\',
);
if( $is_msvc ) {
--- msys.pl.orig 2005-03-16 11:53:02.000000000 +0100
+++ msys.pl 2005-03-19 11:55:58.000000000 +0100
@@ -9,6 +9,7 @@
ld => '$(PERL) /bin/perlld',
libs => '-lmsvcrt -lmoldname -lkernel32 -luser32 -lgdi32
-lwinspool -lcomdlg32 -ladvapi32 -lshell32 -lole32 -loleaut32 -lnetapi32 -luuid
-lws2_32 -lmpr -lwinmm -lversion -lodbc32 ',
ncilib_link_extra => '-def:src/libnci_test.def',
+ slash_exec => '\\',
);
}
--- sys.t.orig 2005-03-04 23:37:02.000000000 +0100
+++ sys.t 2005-03-19 12:36:54.000000000 +0100
@@ -35,7 +35,7 @@
.local pmc conf_hash
conf_hash = _config()
.local string slash
- slash = conf_hash["slash"]
+ slash = conf_hash["slash_exec"]
.local string parrot
parrot = conf_hash["test_prog"]
.local string cmd
