[Bast-commits] r8549 - in DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI: . ODBC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-05 09:26:03 +0000 (Fri, 05 Feb 2010)
New Revision: 8549

Modified:
   DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm
   DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
Log:
rename a couple of variables

Modified: DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm
===================================================================
--- DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm	2010-02-05 08:55:43 UTC (rev 8548)
+++ DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/InterBase.pm	2010-02-05 09:26:03 UTC (rev 8549)
@@ -96,27 +96,27 @@
 
 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;

Modified: DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm
===================================================================
--- DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm	2010-02-05 08:55:43 UTC (rev 8548)
+++ DBIx-Class/0.08/branches/storage-interbase/lib/DBIx/Class/Storage/DBI/ODBC/Firebird.pm	2010-02-05 09:26:03 UTC (rev 8549)
@@ -24,16 +24,16 @@
 
 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;