From b3a30dc3fe6364238aa25099b8f98c3721556509 Mon Sep 17 00:00:00 2001
From: Tom Browder <tbrowder@acm.org>
Date: Fri, 19 Jan 2024 07:02:55 -0600
Subject: [PATCH] save work

---
 t/03-unusual-inputs.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/03-unusual-inputs.t b/t/03-unusual-inputs.t
index ca9b1a3..6477740 100644
--- a/t/03-unusual-inputs.t
+++ b/t/03-unusual-inputs.t
@@ -112,7 +112,7 @@ subtest {
     my $target = "Args";
     my $junction = abbrev $target; # OUTPUT: "A|Ar|Arg|Args"; 
     my $res = False;
-    for @w {
+    for $junction.split(/'|'/) {
         when /$junction/ { $res = True  }
         default          { $res = False }
     }