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 (file)
--- 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 (file)
--- 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;