diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index 2c969e101711941f06988f7dc366742f8ab15db4..708aabff63d0aa22827c8360a40473a951e4085c 100644
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -175,8 +175,9 @@ sub sendcontrol {
     }
     my $log;
     foreach $log (@_) {
-        $log =~ s/[\r\n]//g;
-        logmsg "> \"$log\"\n";
+        my $l = $log;
+        $l =~ s/[\r\n]//g;
+        logmsg "> \"$l\"\n";
     }
 }