From 46470621116a37692d75680ddf623d71f7c522d7 Mon Sep 17 00:00:00 2001
From: Tsu-ba-me <ynho.li.aa.e@gmail.com>
Date: Wed, 12 Jul 2023 18:24:21 -0400
Subject: [PATCH] fix(tools): set script source in anvil-access-module

---
 tools/anvil-access-module | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tools/anvil-access-module b/tools/anvil-access-module
index 0778caa3..86284eeb 100755
--- a/tools/anvil-access-module
+++ b/tools/anvil-access-module
@@ -524,10 +524,12 @@ else
 	my $script_file_handle;
 
 	eval {
-		if ($script_file =~ /^#!SET!#|-$/)
-		{
-			$script_file = "-";
+		# TODO: make this script read piped input
+
+		$script_file = "-" if ($script_file =~ /^#!SET!#$/);
 
+		if ($script_file =~ /^-$/)
+		{
 			open($script_file_handle, $script_file);
 		}
 		else