From d26cffdb5e00de17dad9a858cb5212f69b9d95cd Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Sun, 13 Feb 2005 21:40:24 +0000
Subject: [PATCH] *   t/addresses.t     Only need to 'my' the $command scalar
 once

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@363 958fd67b-6ff1-0310-b445-bb7760255be9
---
 t/addresses.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/addresses.t b/t/addresses.t
index c19b586..2e261d0 100644
--- a/t/addresses.t
+++ b/t/addresses.t
@@ -19,11 +19,11 @@ my $command = 'MAIL FROM:<ask@perl.org> SIZE=1230';
 is(($smtpd->command($command))[0], 250, $command);
 is($smtpd->transaction->sender->format, '<ask@perl.org>', 'got the right sender');
 
-my $command = 'MAIL FROM:<>';
+$command = 'MAIL FROM:<>';
 is(($smtpd->command($command))[0], 250, $command);
 is($smtpd->transaction->sender->format, '<>', 'got the right sender');
 
-my $command = 'MAIL FROM:<ask@p.qpsmtpd-test.askask.com> SIZE=1230';
+$command = 'MAIL FROM:<ask@p.qpsmtpd-test.askask.com> SIZE=1230';
 is(($smtpd->command($command))[0], 250, $command);
 is($smtpd->transaction->sender->format, '<ask@p.qpsmtpd-test.askask.com>', 'got the right sender');