From: Rafael Kitover Date: Fri, 5 Feb 2010 09:26:03 +0000 (+0000) Subject: rename a couple of variables X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=323148de056d0491594da32fcfcce03d82f2a527;p=dbsrgits%2FDBIx-Class-Historic.git rename a couple of variables --- diff --git a/lib/DBIx/Class/Storage/DBI/InterBase.pm b/lib/DBIx/Class/Storage/DBI/InterBase.pm index a5f04e6..23cc529 100644 --- a/lib/DBIx/Class/Storage/DBI/InterBase.pm +++ b/lib/DBIx/Class/Storage/DBI/InterBase.pm @@ -96,27 +96,27 @@ sub _sql_maker_opts { sub datetime_parser_type { __PACKAGE__ } -my ($parser, $formatter); +my ($datetime_parser, $datetime_formatter); sub parse_datetime { shift; require DateTime::Format::Strptime; - $parser ||= DateTime::Format::Strptime->new( + $datetime_parser ||= DateTime::Format::Strptime->new( pattern => '%a %d %b %Y %r', # there should be a %Z (TZ) on the end, but it's ambiguous and not parsed on_error => 'croak', ); - $parser->parse_datetime(shift); + $datetime_parser->parse_datetime(shift); } sub format_datetime { shift; require DateTime::Format::Strptime; - $formatter ||= DateTime::Format::Strptime->new( + $datetime_formatter ||= DateTime::Format::Strptime->new( pattern => '%F %H:%M:%S.%4N', on_error => 'croak', ); - $formatter->format_datetime(shift); + $datetime_formatter->format_datetime(shift); } 1; diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm b/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm index de1388c..d5f2335 100644 --- a/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm +++ b/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm @@ -24,16 +24,16 @@ sub _quote_column_for_returning { sub datetime_parser_type { __PACKAGE__ } -my $parser; +my $datetime_parser; sub parse_datetime { shift; require DateTime::Format::Strptime; - $parser ||= DateTime::Format::Strptime->new( + $datetime_parser ||= DateTime::Format::Strptime->new( pattern => '%F %H:%M:%S', on_error => 'croak', ); - $parser->parse_datetime(shift); + $datetime_parser->parse_datetime(shift); } 1;