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

diff --git a/META.yml b/META.yml
index 369c93e76b12fadf2ca63e406da23062ab952c7f..4439202934bdf7eadf02b401f73da5ba77b33f92 100644 (file)
--- a/META.yml
+++ b/META.yml
@@ -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

diff --git a/README b/README
index b08cf430da46a065d66145c406b41383a21d40dc..6f483b15145b64fbb804ede0d62df141a917d44a 100644 (file)
--- a/README
+++ b/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.

diff --git a/doc/pgBadger.pod b/doc/pgBadger.pod
index 69854b5a4e11a402bd6c6b7d8738043f03dde91a..79708cd7b55858a8477553e71570afa78a474f53 100644 (file)
--- a/doc/pgBadger.pod
+++ b/doc/pgBadger.pod
@@ -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.
 

diff --git a/pgbadger b/pgbadger
index 56bb75cd4f398db87db4abe5e868a9617e599e1c..3da4ea2e1472ed17c0a61442d14849e5c342c993 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -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";