Skip to content

Commit

Permalink
Removed debugging statement
Browse files Browse the repository at this point in the history
  • Loading branch information
dap committed Jul 7, 2009
1 parent 8588e23 commit 9659c8b
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions bin/perl5i.c.PL
Expand Up @@ -8,7 +8,7 @@ my $perl_path = $^X;
$perl_path =~ s{ ([\\"]) }{\\$1}gx;

open my $fh, ">", $file or die $!;
printf $fh <<'END', $perl_path, '%s', '%d', '%s';
printf $fh <<'END', $perl_path, '%s';
#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
Expand All @@ -33,7 +33,6 @@ int main (int argc, char* argv[]) {
char* wrapped_arg = (char *)malloc( strlen(argv[i]) + 3 );
sprintf(wrapped_arg, "\"%s\"\0", argv[i]);
perl_args[i+1] = wrapped_arg;
printf("%d: %s\n", i+1, perl_args[i+1]);
#else
perl_args[i+1] = argv[i];
#endif
Expand Down

0 comments on commit 9659c8b

Please sign in to comment.