rename $trie to $try everywhere

tadam · Jul 18, 2012 · 3a417f8 · 3a417f8
1 parent 8bdc52a
commit 3a417f8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/lib/DBD/Safe.pm b/lib/DBD/Safe.pm
@@ -169,8 +169,8 @@ sub connect {
     }
 
     my $retry_cb = sub {
-        my $trie = shift;
-        if ($trie == 1) {
+        my $try = shift;
+        if ($try == 1) {
             return 1;
         } else {
             return 0;
@@ -414,11 +414,11 @@ sub stay_connected {
             #return $dbh->set_err($DBI::stderr, "Reconnect needed when db in transaction");
         }
 
-        my $trie = 0;
+        my $try = 0;
         my $retry_cb = $dbh->FETCH('x_safe_retry_cb');
         while (1) {
-            $trie++;
-            my $can_connect = $retry_cb->($trie);
+            $try++;
+            my $can_connect = $retry_cb->($try);
             if ($can_connect) {
                 my $dbh = eval { real_connect($dbh) };
                 if (!$dbh) {

diff --git a/t/main.t b/t/main.t
@@ -96,7 +96,7 @@ sub reconnect_threads : Test(1) {
 
 sub retry_cb : Test(1) {
     my $cb = sub {
-        my $trie = shift;
+        my $try = shift;
         return 0
     };
     dies_ok(sub { get_dbh({retry_cb => $cb}) }, "always negative retry_cb");