spawn: add #line CPP directives to ease debugging

Having reasonably accurate file and line number makes debugging
much easier since Inline::C clobbers temporary Spawn_*.xs files
by default.

diff --git a/lib/PublicInbox/Spawn.pm b/lib/PublicInbox/Spawn.pm
index 3a35b4d5f5b75a4c9ff3ec5506f3fe1dce197a2d..692037e8cf45d5a52580f2aa759a69eb2405c39d 100644 (file)
--- a/lib/PublicInbox/Spawn.pm
+++ b/lib/PublicInbox/Spawn.pm
@@ -34,7 +34,7 @@ use autodie qw(close open pipe seek sysseek truncate);
 
 BEGIN {
        @RLIMITS = qw(RLIMIT_CPU RLIMIT_CORE RLIMIT_DATA);
-       my $all_libc = <<'ALL_LIBC'; # all *nix systems we support
+       my $all_libc = qq[#line ${\__LINE__} "${\__FILE__}"\n]. <<'ALL_LIBC';
 #include <sys/resource.h>
 #include <sys/socket.h>
 #include <sys/types.h>
@@ -306,6 +306,7 @@ ALL_LIBC
                ).'/public-inbox/inline-c';
        undef $all_libc unless -d $inline_dir;
        if (defined $all_libc) {
+               $all_libc .= qq[#line ${\__LINE__} "${\__FILE__}"\n];
                for (@RLIMITS, 'RLIM_INFINITY') {
                        $all_libc .= <<EOM;
        Inline_Stack_Push(sv_2mortal(newSVpvs("$_")));