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)11 int 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