build/msys-perl-wrapper
author Gavin Sharp <gavin@gavinsharp.com>
Fri, 21 Jan 2011 11:08:40 -0800
changeset 61093 e7e1971ead8849848f8d38c50cd05d07093513ee
parent 32951 1c4751f81b1d5665ece3d21c5862b16973897ae4
child 95919 f4157e8c410708d76703f19e4dfb61859bfe32d8
permissions -rw-r--r--
back out c0547fd3a3cc (bug 620472) due to bug 627332, a=blocking-b10

#!/bin/sh

args=""

for i in "${@}"
do
    case "$i" in
    -I?:/*)
        i="$(echo "${i}" | sed -e 's|^-I\(.\):/|-I/\1/|')"
	;;
    esac

    args="${args} '${i}'"
done

eval "exec perl $args"