[interchange-cvs] interchange - heins modified lib/Vend/Data.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sat Aug 9 12:14:00 EDT 2003
User: heins
Date: 2003-08-09 15:14:11 GMT
Modified: lib/Vend Data.pm
Log:
* Remove extraneous POD entries.
Revision Changes Path
2.30 +1 -34 interchange/lib/Vend/Data.pm
rev 2.30, prev_rev 2.29
Index: Data.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Data.pm,v
retrieving revision 2.29
retrieving revision 2.30
diff -u -r2.29 -r2.30
--- Data.pm 25 Jun 2003 16:38:17 -0000 2.29
+++ Data.pm 9 Aug 2003 15:14:11 -0000 2.30
@@ -1,6 +1,6 @@
# Vend::Data - Interchange databases
#
-# $Id: Data.pm,v 2.29 2003/06/25 16:38:17 mheins Exp $
+# $Id: Data.pm,v 2.30 2003/08/09 15:14:11 mheins Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -570,14 +570,6 @@
return;
}
-=head1 auto_delimiter
-
-This routine finds the delimiter type automatically, given the text file
-name. Below is a test of it -- run the code from the definition of %Delimiter to
-end of the =cut below the routine.
-
-=cut
-
sub auto_delimiter {
my ($fn) = @_;
my $fdelim = "\t";
@@ -618,31 +610,6 @@
}
return ($fdelim, $rdelim);
}
-
-=head2 Test code
-
- my @test = qw(
- /cc/products/products.txt
- /cc/products/NextDayAir.csv
- /tmp/products.pipe
- /tmp/products.line
- /tmp/products.pct
- );
- my %map = (
- "\t" => '\t',
- "\n" => '\n',
- "\n\n" => '\n\n',
- );
-
- for(@test) {
- my $file = $_;
- my ($f, $r) = auto_delimiter($file);
- my $fs = $map{$f} || $f;
- my $rs = $map{$r} || $r;
- print "$file: f=$fs r=$rs\n";
- }
-
-=cut
use vars '%db_config';
More information about the interchange-cvs
mailing list