Permalink
Browse files

s/Text::CSV/$&_XS/g

  • Loading branch information...
1 parent 24d6170 commit 20e3ddeca4faeeb9b93b3902d975331bdd723d00 @davidfetter davidfetter committed Nov 6, 2012
Showing with 5 additions and 5 deletions.
  1. +1 −1 META.yml
  2. +1 −1 README
  3. +1 −1 doc/pgBadger.pod
  4. +2 −2 pgbadger
View
@@ -5,7 +5,7 @@ version: 1.1
version_from: pgbadger
installdirs: site
recommends:
- Text::CSV: 0
+ Text::CSV_XS: 0
distribution_type: script
generated_by: ExtUtils::MakeMaker version 6.17
View
2 README
@@ -163,7 +163,7 @@ REQUIREMENT
If you planned to parse PostgreSQL CSV log files you might need some
Perl Modules:
- Text::CSV - to parse PostgreSQL CSV log files.
+ Text::CSV_XS - to parse PostgreSQL CSV log files.
This module is optional, if you don't have PostgreSQL log in the CSV
format you don't need to install it.
View
@@ -153,7 +153,7 @@ PgBadger comes as a single Perl script- you do not need anything else than a mod
If you planned to parse PostgreSQL CSV log files you might need some Perl Modules:
- Text::CSV - to parse PostgreSQL CSV log files.
+ Text::CSV_XS - to parse PostgreSQL CSV log files.
This module is optional, if you don't have PostgreSQL log in the CSV format you don't need to install it.
View
@@ -524,8 +524,8 @@ foreach my $logfile (@log_files) {
my $cursize = 0;
if ($format eq 'csv') {
- require Text::CSV;
- my $csv = Text::CSV->new({binary => 1, eol => $/});
+ require Text::CSV_XS;
+ my $csv = Text::CSV_XS->new({binary => 1, eol => $/});
my $io = undef;
if ($logfile !~ /\.(gz|bz2|zip)/i) {
open($io, "<", $logfile) or die "FATAL: cannot read csvlog file $logfile. $!\n";

0 comments on commit 20e3dde

Please sign in to comment.