From: David Fetter <david@fetter.org>
Date: Tue, 6 Nov 2012 22:19:29 +0000 (-0800)
Subject: s/Text::CSV/$&_XS/g
X-Git-Tag: v3.2~109^2^2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=20e3ddeca4faeeb9b93b3902d975331bdd723d00;p=pgbadger

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

diff --git a/META.yml b/META.yml
index 369c93e..4439202 100644
--- 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 b08cf43..6f483b1 100644
--- 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 69854b5..79708cd 100644
--- 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 56bb75c..3da4ea2 100755
--- 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";