#!/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");
	}
}

