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

Check whether refs are blessed before calling can()

Browse Source
This commit is contained in:
Chris 2016-12-29 12:11:16 +00:00
parent 29015e28a4
commit a07d1f5120
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Webperl/System.pm
View File

@ -25,6 +25,7 @@ package Webperl::System;
use strict; use strict;
use base qw(Webperl::SystemModule); use base qw(Webperl::SystemModule);
use Scalar::Utils qw(blessed);
# ============================================================================ # ============================================================================
# Constructor and initialiser # Constructor and initialiser
@ -89,7 +90,7 @@ sub clear {
foreach my $key (keys %{$self}) { foreach my $key (keys %{$self}) {
next if(!defined($self -> {$key})); # skip undefined refs next if(!defined($self -> {$key})); # skip undefined refs
$self -> {$key} -> clear() if($self -> {$key} -> can("clear")); $self -> {$key} -> clear() if(blessed($self -> {$key}) && $self -> {$key} -> can("clear"));
delete $self -> {$key}; delete $self -> {$key};
} }
} }