From b4d0ff7f394f94981477191f944fab3671d76e9a Mon Sep 17 00:00:00 2001
From: Guillem Jover <gjover@sipwise.com>
Date: Wed, 8 Nov 2017 17:22:57 +0100
Subject: [PATCH] TT#24097 Use upper-case HERE-doc markers

Change-Id: Ic161ae00c573c6febb4c8366ed1ee3773c2cfc0e
---
 tests/simulator-ng.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/simulator-ng.pl b/tests/simulator-ng.pl
index 0c17aa910..7288a66f6 100755
--- a/tests/simulator-ng.pl
+++ b/tests/simulator-ng.pl
@@ -606,13 +606,13 @@ sub offer_answer {
 	my $tcx = $$A{trans_contexts};
 	my $tcx_o = $$B{trans_contexts};
 
-	my $sdp = <<"!";
+	my $sdp = <<"SDP";
 v=0
 o=blah 123 123 IN $$pr{family_str} $$ips_t[0]
 s=session
 c=IN $$pr{family_str} $$ips_t[0]
 t=0 0
-!
+SDP
 	my $ul = $$A{num_streams};
 	$op eq 'answer' && $$A{streams_seen} < $$A{num_streams}
 		and $ul = $$A{streams_seen};
@@ -631,11 +631,11 @@ t=0 0
 		$$A{bundle} && $$A{want_rtcpmux} && $op eq 'offer'
 			and $cp = $p;
 
-		$sdp .= <<"!";
+		$sdp .= <<"SDP";
 m=audio $p $$tr{name} 0 8 111
 a=rtpmap:8 PCMA/8000
 a=rtpmap:111 opus/48000/2
-!
+SDP
 		if ($$A{want_rtcpmux} && $op eq 'offer') {
 			$sdp .= "a=rtcp-mux\n";
 			$sdp .= "a=rtcp:$cp\n";