/usr/bin/datum_strip is in libcarp-datum-perl 1:0.1.3-6.
This file is owned by root:root, with mode 0o755.
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 | #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if 0; # not running under some shell
#
# $Id: datum_strip.PL,v 0.1 2001/03/31 10:04:37 ram Exp $
#
# Copyright (c) 2000-2001, Christophe Dehaudt & Raphael Manfredi
#
# You may redistribute only under the terms of the Artistic License,
# as specified in the README file that comes with the distribution.
#
# HISTORY
# $Log: datum_strip.PL,v $
# Revision 0.1 2001/03/31 10:04:37 ram
# Baseline for first Alpha release.
#
# $EndLog$
#
use strict;
use Log::Agent;
logconfig(-prefix => $0);
use Carp::Datum::Strip qw(datum_strip);
if (@ARGV == 0) {
datum_strip("-", "-");
} else {
foreach my $file (@ARGV) {
datum_strip($file, "$file.new", ".bak");
}
}
|