[Rt-commit] r6262 - MessageBus/t

[audreyt at bestpractical.com]

Author: audreyt
Date: Tue Oct 24 20:07:02 2006
New Revision: 6262

Modified:
   MessageBus/t/basic.t

Log:
* .t patch from mstrout++

Modified: MessageBus/t/basic.t
==============================================================================
--- MessageBus/t/basic.t	(original)
+++ MessageBus/t/basic.t	Tue Oct 24 20:07:02 2006
@@ -5,13 +5,13 @@
 
 my @backends = qw(PlainHash DBM_Deep Memcached);
 
-SKIP: for (@backends) {
-    if ($_ eq 'Memcached') {
+SKIP: for my $backend (@backends) {
+    if ($backend eq 'Memcached') {
         my $sock = IO::Socket::INET->new('127.0.0.1:11211')
             or skip("Memcached not started", 6);
     }
 
-    my $bus = MessageBus->new($_);
+    my $bus = MessageBus->new($backend);
 
     my @sub; $sub[0] = $bus->subscribe;