From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Mon, 31 May 2021 09:26:55 +0000 (+0200)
Subject: Testwarnung: doppelte "my $x" vermeiden
X-Git-Tag: kivitendo-mebil_0.1-0~9^2~202
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=900bb49e00edc997dce7cfbeea28212a827104f8;p=kivitendo-erp.git

Testwarnung: doppelte "my $x" vermeiden
---

diff --git a/t/x/exceptions.t b/t/x/exceptions.t
index 18ae115f8..e54327bf8 100644
--- a/t/x/exceptions.t
+++ b/t/x/exceptions.t
@@ -22,7 +22,7 @@ for my $error_class (@classes) {
   is $x->message, "test message", "$error_class(message): message works";
   is "$x",        "test message", "$error_class(message): stringify works";
 
-  my $x = $error_class->new(error => "test message");
+  $x = $error_class->new(error => "test message");
 
   is $x->error,   "test message", "$error_class(error): error works";
   is $x->message, "test message", "$error_class(error): message works";
@@ -39,7 +39,7 @@ is $x->message, "stuff: broke", "tempalte: message works";
 is "$x",        "stuff: broke", "template: stringify works";
 
 
-my $x = SL::X::Inventory::Allocation->new(code => "DEADCOFFEE", message => "something went wrong");
+$x = SL::X::Inventory::Allocation->new(code => "DEADCOFFEE", message => "something went wrong");
 
 is $x->code,   "DEADCOFFEE", "extra fields work";