Skip to content

Commit ac5116d

Browse files
committed
Corrected escape var name for pearl script.
1 parent e5185ca commit ac5116d

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

ecommerce/pricing/Makefile

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff 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"; \

rails_application/Makefile

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff 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"; \

0 commit comments

Comments
 (0)