1 files changed, 1 insertions, 1 deletions
diff --git a/demos/smtp.self b/demos/smtp.self
index 10200ea..8a87274 100755
--- a/demos/smtp.self
+++ b/demos/smtp.self
@@ -65,7 +65,7 @@ if($smtp->mail($user) && $smtp->to($user))
    $smtp->data();
  
    my @data;
-  map { s/-USER-/$user/g } @data=<DATA>;
+  map { s/-USER-/$user/g } @data=<DATA>; ## no critic (ControlStructures::ProhibitMutatingListFunctions)
  
    $smtp->datasend(@data);
    $smtp->dataend;