1 /* Wrapper for debpkg so that we don't have to use suidperl any longer 2 (it's deprecated as of Perl 5.8.0) */ 3 4 #include <stdio.h> 5 #include <unistd.h> 6 #include <errno.h> 7 #include <string.h> 8 9 #define REAL_PATH "/usr/share/devscripts/debpkg" 10 main(int ac,char ** av)11int main(int ac, char **av) 12 { 13 execv(REAL_PATH, av); 14 15 fprintf(stderr, "Error executing debpkg: %s\n", strerror(errno)); 16 return 1; 17 } 18