| Newsgroups |
perl.cvs.qpsmtpd |
| Message-ID |
<[email protected]> |
cvsuser 05/02/13 13:40:24
Modified: t addresses.t
Log:
* t/addresses.t
Only need to 'my' the $command scalar once
Revision Changes Path
1.5 +2 -2 qpsmtpd/t/addresses.t
Index: addresses.t
===================================================================
RCS file: /cvs/public/qpsmtpd/t/addresses.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- addresses.t 28 Jan 2005 03:30:50 -0000 1.4
+++ addresses.t 13 Feb 2005 21:40:24 -0000 1.5
@@ -19,11 +19,11 @@
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format, '<[email protected]>', '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:<[email protected]> SIZE=1230';
+$command = 'MAIL FROM:<[email protected]> SIZE=1230';
is(($smtpd->command($command))[0], 250, $command);
is($smtpd->transaction->sender->format, '<[email protected]>', 'got the right sender');