Further refined pearl script.

Author: dysk

rails_application/Makefile

@@ -45,7 +45,7 @@ ifeq ($(origin MUTANT_NODE_INDEX), environment)
 	 head -n 5 .node_files.tmp || echo "File .node_files.tmp is empty."; \
 	 echo "--- END DEBUG (awk) ---"; \
 	 echo "--- DEBUG: Attempting to derive subject names for this node... ---"; \
-	 DERIVED_NAMES=$$(cat .node_files.tmp | perl -ne 'chomp; s#^(app/(controllers|models|helpers|jobs|mailers|channels|client_panel)|lib)/##; s#\.rb$$##; my @parts = split /\//; my $$result = ""; foreach my $$part (@parts) { $$part =~ s#_([a-z])#uc($$1)#eg; $$result .= "::" . ucfirst($$part); } $$result =~ s/^:://; print "$$result\n"'); \
+	 DERIVED_NAMES=$$(cat .node_files.tmp | perl -ne 'chomp; s#^(app/(controllers|models|helpers|jobs|mailers|channels|client_panel|read_models|services)|lib)/##; s#\.rb$$##; my @parts = split /\//; my $$result = ""; foreach my $$part (@parts) { $$part =~ s#_([a-z])#uc($$1)#eg; $$result .= ucfirst($$part) . "::"; } $$result =~ s/::$$//; print "$$result\n"'); \
 	 PERL_EXIT_CODE=$$?; \
 	 if [ $$PERL_EXIT_CODE -ne 0 ]; then \
 	   echo "ERROR: Perl command failed with exit code $$PERL_EXIT_CODE"; \
@@ -54,11 +54,10 @@ ifeq ($(origin MUTANT_NODE_INDEX), environment)
 	 elif [ -z "$$DERIVED_NAMES" ]; then \
 	   echo "Perl command produced no output (expected if no files for node)."; \
 	 else \
-	   echo "$$DERIVED_NAMES" | sed 's/^:://'; \
+	   echo "$$DERIVED_NAMES"; \
 	 fi; \
 	 echo "--- END DEBUG (perl) ---"; \
-	 DERIVED_NAMES_FILTERED=$$(echo "$$DERIVED_NAMES" | sed 's/^:://'); \
-	 SUBJECT_ARGS=$$(echo "$$DERIVED_NAMES_FILTERED" | tr '\\n' ' '); \
+	 SUBJECT_ARGS=$$(echo "$$DERIVED_NAMES" | tr '\\n' ' '); \
 	 if [ -z "$$SUBJECT_ARGS" ]; then \
 	   echo "No subjects derived for this node. Skipping."; \
 	 else \
@@ -71,7 +70,6 @@ else
 	@RAILS_ENV=test bundle exec mutant run
 endif
 
-
 .PHONY: help test db
 .DEFAULT_GOAL := help