Can't call method "print" on an undefined value about dbd-csv HOT 4 CLOSED

diff --git a/lib/DBD/CSV.pm b/lib/DBD/CSV.pm
index 8f46ffd..2a3a1a3 100755
--- a/lib/DBD/CSV.pm
+++ b/lib/DBD/CSV.pm
@@ -15,8 +15,8 @@ require DynaLoader;
 require DBD::File;
 require IO::File;

-our @f_SHORT = qw( file dir dir_search ext lock lockfile schema encoding );
-our @c_SHORT = qw( class eof
+our @f_SHORT = qw( class file dir dir_search ext lock lockfile schema encoding );
+our @c_SHORT = qw( eof
        eol sep_char quote_char escape_char binary decode_utf8 auto_diag
        diag_verbose blank_is_undef empty_is_undef allow_whitespace
        allow_loose_quotes allow_loose_escapes allow_unquoted_escape

use strict;
use warnings;
use DBI;
use Text::CSV; # <--- this line is required when using another class

my $tbl = shift || "foo";

# See "Creating database handle" below
my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    f_ext      => ".csv/r",
    RaiseError => 1,
    PrintError => 1,
    csv_class  => "Text::CSV",
    }) or die "Cannot connect: $DBI::errstr";
$dbh->do ("CREATE TABLE $tbl (id INTEGER, name CHAR (10))");