From 1c9cb3f830ed9f7e07173352f07f87de71bf6064 Mon Sep 17 00:00:00 2001
From: Alexey Sokolov <alexey+znc@asokolov.org>
Date: Sat, 11 Jul 2020 21:58:27 +0100
Subject: [PATCH] modperl: allow overriding timer label

---
 modules/modperl/startup.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/modperl/startup.pl b/modules/modperl/startup.pl
index fe4c2a9d..cda7cbc8 100644
--- a/modules/modperl/startup.pl
+++ b/modules/modperl/startup.pl
@@ -641,7 +641,7 @@ sub CreateTimer {
 			$self->{_cmod},
 			$a{interval}//10,
 			$a{cycles}//1,
-			"perl-timer",
+			$a{label}//"perl-timer",
 			$a{description}//'Just Another Perl Timer',
 			$ptimer);
 	$ptimer->{_ctimer} = $ctimer;