too much perl

libs/freetdm/mod_freetdm/mod_freetdm.c

@@ -3518,12 +3518,12 @@ void dump_chan(ftdm_span_t *span, uint32_t chan_id, switch_stream_handle_t *stre
 						   "physical_span_id: %u\n"
 						   "physical_chan_id: %u\n"
 						   "physical_status: %s\n"
-						   "physical_status_red: $d\n"
-						   "physical_status_yellow: $d\n"
-						   "physical_status_rai: $d\n"
-						   "physical_status_blue: $d\n"
-						   "physical_status_ais: $d\n"
-						   "physical_status_general: $d\n"
+						   "physical_status_red: %d\n"
+						   "physical_status_yellow: %d\n"
+						   "physical_status_rai: %d\n"
+						   "physical_status_blue: %d\n"
+						   "physical_status_ais: %d\n"
+						   "physical_status_general: %d\n"
 						   "signaling_status: %s\n"
 						   "type: %s\n"
 						   "state: %s\n"