Item14237: Executing user-defined method on a temporary object of spe…

…cial class.
foswiki · May 25, 2017 · 53ed2ac · 53ed2ac
1 parent 1e2ee3b
commit 53ed2ac
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/core/lib/Foswiki/Config/Spec/Format/perl.pm b/core/lib/Foswiki/Config/Spec/Format/perl.pm
@@ -1,5 +1,11 @@
 # See bottom of file for license and copyright information
 
+package Foswiki::Config::Spec::Format::perl::Wrapper;
+
+use Foswiki::Class qw(app);
+extends qw(Foswiki::Object);
+with qw(Foswiki::Config::CfgObject);
+
 package Foswiki::Config::Spec::Format::perl;
 
 use Foswiki::Exception::Config;
@@ -31,7 +37,10 @@ SPECCODE
         );
     }
 
-    return $sub->($this);
+    my $wrapper = $this->create( 'Foswiki::Config::Spec::Format::perl::Wrapper',
+        cfg => $this->cfg, );
+
+    return $sub->($wrapper);
 }
 
 1;