From 6f0083c8d704cbc8499d8af473a658718a2402f3 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 13 Jan 2014 13:42:43 -0800
Subject: [PATCH] Calling functions by string name isn't allowed in strict mode

---
 acl/save_twofactor.cgi | 10 +++++-----
 acl/twofactor_form.cgi |  2 +-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/acl/save_twofactor.cgi b/acl/save_twofactor.cgi
index 306d0fd75..c56a508a4 100755
--- a/acl/save_twofactor.cgi
+++ b/acl/save_twofactor.cgi
@@ -29,8 +29,8 @@ if ($in{'enable'}) {
 	my $vfunc = "webmin::parse_twofactor_form_".
 		    $miniserv{'twofactor_provider'};
 	my $details;
-	if (defined(&$vfunc)) {
-		$details = &$vfunc(\%in, $user);
+	if (defined(&{\&{$vfunc}})) {
+		$details = &{\&{$vfunc}}(\%in, $user);
 		&error($details) if (!ref($details));
 		}
 
@@ -41,7 +41,7 @@ if ($in{'enable'}) {
 	# Register user
 	print &text('twofactor_enrolling', $prov->[1]),"<br>\n";
 	my $efunc = "webmin::enroll_twofactor_".$miniserv{'twofactor_provider'};
-	my $err = &$efunc($details, $user);
+	my $err = &{\&{$efunc}}($details, $user);
 	if ($err) {
 		# Failed!
 		print &text('twofactor_failed', $err),"<p>\n";
@@ -52,8 +52,8 @@ if ($in{'enable'}) {
 		# Print provider-specific message
 		my $mfunc = "webmin::message_twofactor_".
 			    $miniserv{'twofactor_provider'};
-		if (defined(&$mfunc)) {
-			print &$mfunc($user);
+		if (defined(&{\&{$mfunc}})) {
+			print &{\&{$mfunc}}($user);
 			}
 
 		# Save user
diff --git a/acl/twofactor_form.cgi b/acl/twofactor_form.cgi
index f8b020a32..88c399d2d 100755
--- a/acl/twofactor_form.cgi
+++ b/acl/twofactor_form.cgi
@@ -55,7 +55,7 @@ else {
 		    $miniserv{'twofactor_provider'};
 	if (defined(&$ffunc)) {
 		print &ui_table_start($text{'twofactor_header'}, undef, 2);
-		print &$ffunc($user);
+		print &{\&{$ffunc}}($user);
 		print &ui_table_end();
 		}
 	@buts = ( [ "enable", $text{'twofactor_enable'} ] );