tris/recoll
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

rclimg (tweaks for perl)

Browse Source 
--HG--
branch : WINDOWSPORT
This commit is contained in:
Jean-Francois Dockes 2015-09-14 10:33:39 +02:00
parent ac69019917
commit 86ef362461
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/filters/rclimg
View File

@ -147,6 +147,9 @@ if ($@) {
exit(1);
}
binmode(STDIN) || die "cannot binmode STDIN";
binmode(STDOUT) || die "cannot binmode STDOUT";
#print STDERR "RCLIMG: Starting\n";
$| = 1;
while (1) {

6
src/internfile/mimehandler.cpp
View File

@ -223,12 +223,12 @@ MimeHandlerExec *mhExecFactory(RclConfig *cfg, const string& mtype, string& hs,
vector<string>::iterator it = cmdtoks.begin();
#ifdef _WIN32
// Special-case python on windows: we need to also locate the
// Special-case python and perl on windows: we need to also locate the
// first argument which is the script name "python somescript.py".
// On Unix, thanks to #!, we just run "somescript.py"
if (!stringlowercmp("python", *it)) {
if (!stringlowercmp("python", *it) || !stringlowercmp("perl", *it)) {
if (cmdtoks.size() < 2) {
LOGERR(("mhExecFactory: python line has no script?. [%s]: [%s]\n",
LOGERR(("mhExecFactory: python/perl cmd: no script?. [%s]: [%s]\n",
mtype.c_str(), hs.c_str()));
}
vector<string>::iterator it1(it);