#!/usr/bin/perl 
# Perlbug sqldb datafix updater
# (C) 1999 Richard Foley RFI perlbug@rfi.net 
# $Id: bugfix,v 1.4 2001/10/11 13:11:56 richardf Exp $
#

=head1 NAME

DATAFIX

=head1 DESCRIPTION

Trawl through the db, looking for incorrect data: correct it, or destroy it :-)

Help is online - enter B<h> at the command prompt.

=head1 USAGE

	./bugfix

=cut

use strict;
use vars(qw($VERSION));
$VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; 

use Carp; 
use FindBin;
use lib "$FindBin::Bin/..";
use IO::File;
use Perlbug::Fix;
$|=1;

# DOIT
# -----------------------------------------------------------------------------
my $ok = 1;
my $item  = $ARGV[0] || '';
my $o_fix = Perlbug::Fix->new($item);
$o_fix->cmd; # loop

print "All over -> ok($ok)\n";
$o_fix->clean_up;

exit 0;

