/usr/lib/perl5/KinoSearch1/Util/Carp.pm is in libkinosearch1-perl 1.00-1build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | package KinoSearch1::Util::Carp;
1;
__END__
__H__
#ifndef H_KINOSEARCH_UTIL_CARP
#define H_KINOSEARCH_UTIL_CARP 1
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "KinoSearch1UtilMemManager.h"
void Kino1_confess (char*, ...);
#endif /* include guard */
__C__
#include "KinoSearch1UtilCarp.h"
void Kino1_confess (char* pat, ...) {
va_list args;
SV *error_sv;
dSP;
error_sv = newSV(0);
va_start(args, pat);
sv_vsetpvf(error_sv, pat, &args);
va_end(args);
ENTER;
SAVETMPS;
PUSHMARK(SP);
XPUSHs( sv_2mortal(error_sv) );
PUTBACK;
call_pv("Carp::confess", G_DISCARD);
FREETMPS;
LEAVE;
}
__END__
=begin devdocs
=head1 NAME
KinoSearch1::Util::Carp - stack traces from C
=head1 DESCRIPTION
This module makes it possible to invoke Carp::confess() from C. Modules that
use it will need to "use Carp;" -- which is usually taken care of by "use
KinoSearch1::Util::ToolSet;".
=head1 COPYRIGHT
Copyright 2005-2010 Marvin Humphrey
=head1 LICENSE, DISCLAIMER, BUGS, etc.
See L<KinoSearch1> version 1.00.
=end devdocs
=cut
|