1 files changed, 17 insertions, 0 deletions
diff --git a/scripts/debpkg-wrapper.c b/scripts/debpkg-wrapper.c
new file mode 100644
index 0000000..4a4d48f
--- /dev/null
+++ b/scripts/debpkg-wrapper.c
@@ -0,0 +1,17 @@
+/* Wrapper for debpkg so that we don't have to use suidperl any longer
+   (it's deprecated as of Perl 5.8.0) */
+
+#include <stdio.h>
+#include <unistd.h>
+#include <errno.h>
+#include <string.h>
+
+#define REAL_PATH "/usr/share/devscripts/debpkg"
+
+int main(int ac, char **av)
+{
+  execv(REAL_PATH, av);
+
+  fprintf(stderr, "Error executing debpkg: %s\n", strerror(errno));
+  return 1;
+}