From a07d1f5120b05912f8741e8b7df507d14637650a Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Thu, 29 Dec 2016 12:11:16 +0000
Subject: [PATCH] Check whether refs are blessed before calling can()

---
 Webperl/System.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Webperl/System.pm b/Webperl/System.pm
index 9ceab09..e33bdac 100644
--- a/Webperl/System.pm
+++ b/Webperl/System.pm
@@ -25,6 +25,7 @@ package Webperl::System;
 
 use strict;
 use base qw(Webperl::SystemModule);
+use Scalar::Utils qw(blessed);
 
 # ============================================================================
 #  Constructor and initialiser
@@ -89,7 +90,7 @@ sub clear {
     foreach my $key (keys %{$self}) {
         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};
     }
 }