File tree Expand file tree Collapse file tree 2 files changed +2
-2
lines changed
Expand file tree Collapse file tree 2 files changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -29,7 +29,7 @@ ifeq ($(origin MUTANT_NODE_INDEX), environment)
2929 head -n 5 .node_files.tmp || echo "File .node_files.tmp is empty."; \
3030 echo "--- END DEBUG (awk) ---"; \
3131 echo "--- DEBUG: Attempting to derive subject names for this node... ---"; \
32- DERIVED_NAMES=$$(cat .node_files.tmp | perl -ne 'chomp; s# ^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"'); \
32+ DERIVED_NAMES=$$(cat .node_files.tmp | perl -ne 'chomp; s# ^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"'); \
3333 PERL_EXIT_CODE=$$?; \
3434 if [ $$PERL_EXIT_CODE -ne 0 ]; then \
3535 echo "ERROR: Perl command failed with exit code $$PERL_EXIT_CODE"; \
Original file line number Diff line number Diff line change @@ -45,7 +45,7 @@ ifeq ($(origin MUTANT_NODE_INDEX), environment)
4545 head -n 5 .node_files.tmp || echo "File .node_files.tmp is empty."; \
4646 echo "--- END DEBUG (awk) ---"; \
4747 echo "--- DEBUG: Attempting to derive subject names for this node... ---"; \
48- 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"'); \
48+ 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"'); \
4949 PERL_EXIT_CODE=$$?; \
5050 if [ $$PERL_EXIT_CODE -ne 0 ]; then \
5151 echo "ERROR: Perl command failed with exit code $$PERL_EXIT_CODE"; \
You can’t perform that action at this time.
0 commit comments