Item13897: Small fixes

- Fixed missing 'use' in Config.pm - Foswiki::Func is now reporting about a call to deprecated function only the first and every 100th call.
foswiki · Aug 4, 2016 · 000aece · 000aece
1 parent 2b56d1a
commit 000aece
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/core/lib/Foswiki/Config.pm b/core/lib/Foswiki/Config.pm
@@ -20,6 +20,7 @@ use Unicode::Normalize;
 use Cwd qw( abs_path );
 use Try::Tiny;
 use Foswiki qw(urlEncode urlDecode make_params);
+use Foswiki::Configure::FileUtil;
 
 use Moo;
 use namespace::clean;

diff --git a/core/lib/Foswiki/Func.pm b/core/lib/Foswiki/Func.pm
@@ -49,6 +49,7 @@ System.DevelopingPlugins.
 # deprecated functions section.
 
 package Foswiki::Func;
+use v5.14;
 
 use strict;
 use warnings;
@@ -2814,10 +2815,15 @@ sub AUTOLOAD {
     my $funcBody;
     if ( __PACKAGE__->can($deprecatedFunc) ) {
         $funcBody = <<FBDY;
-    \$Foswiki::app->logger->warn(
+        state \$callCount = 100;
+        if ( \$callCount == 100 ) {
+            \$Foswiki::app->logger->warn(
 "Function $AUTOLOAD is deprecated; read Foswiki::Func manual to find how to deal with it!"
-    );
-    return ${deprecatedFunc}(\@_);
+            );
+            \$callCount = 0;
+        }
+        \$callCount++;
+        return ${deprecatedFunc}(\@_);
 FBDY
     }
     else {