Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modifying implementation of self_error so that doxygen will work (!)

Browse Source 
If $self -> {"foo"} appears in the first line of a function, the code generated by doxygenfilter will be broken and doxygen will fall over
attempting to parse it (silently, of course).
This commit is contained in:
Chris 2012-03-26 12:54:04 +01:00
parent 268bbc4238
commit a24bed0811
2 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
AuthMethods.pm
View File

@ -161,7 +161,11 @@ sub load_method {
sub set_error { $errstr = shift; return undef; }
sub self_error { my $self = shift; $self -> {"errstr"} = shift; return undef; }
sub self_error {
my $self = shift;
$self -> {"errstr"} = shift;
return undef;
}
1;

9
Modules.pm
View File

@ -16,13 +16,12 @@
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
## @class
## @class Modules
# A class to simplify runtime loading of plugin modules. This class provides
# methods to allow the various block plugin modules to be loaded on demand
# during script execution.
package Modules;
#use lib qw(/home/webperl); # modules needed for utils, blocks needed for plugins
use DBI;
use Module::Load;
use Logging qw(die_log);
@ -348,5 +347,9 @@ sub get_block_id {
sub set_error { $errstr = shift; return undef; }
sub self_error { my $self = shift; $self -> {"errstr"} = shift; return undef; }
sub self_error {
my $self = shift;
$self -> {"errstr"} = shift;
return undef;
}
1;