diff options
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index f5de2332d55..a65bce07135 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -1737,7 +1737,7 @@ plperl_event_trigger_build_args(FunctionCallInfo fcinfo) tdata = (EventTriggerData *) fcinfo->context; hv_store_string(hv, "event", cstr2sv(tdata->event)); - hv_store_string(hv, "tag", cstr2sv(tdata->tag)); + hv_store_string(hv, "tag", cstr2sv(GetCommandTagName(tdata->tag))); return newRV_noinc((SV *) hv); } |