/*
	Simple program to call perl with same arguments except that it passes -T flag to perl also.
	Authored by Kevin Hoffman @ Purdue. Copyright released into the public domain.
*/
#include <unistd.h>
#include <stdio.h>
#include <errno.h>
#include <malloc.h>
int main(int argc, char* argv[]){
	char** newargv;
	int i;

	newargv=(char**)malloc(sizeof(char*)*(argc+2));
	if (NULL==newargv){
		fprintf(stderr,"perlTaint malloc failed!\n");
		return ENOMEM;
	}
	newargv[0]="/usr/bin/perl";
	newargv[1]="-T";
	for (i=1; i<argc; i++){ newargv[1+i]=argv[i]; }
	newargv[argc+1]=NULL;
	execv("/usr/bin/perl",newargv);
	fprintf(stderr,"perlTaint execv failed: %d: %s",errno,strerror(errno));
	return errno;
}