--- Dot.pm 2005-10-05 09:40:53.000000000 +1300
+++ Dot.pm.new 2006-03-12 16:08:21.000000000 +1300
@@ -2,6 +2,7 @@
use vars qw/$VERSION/;
$VERSION = '0.97';
use strict;
+use Scalar::Util qw(blessed);
=head1 NAME
@@ -338,7 +339,7 @@
(?:\.|$) # dot or end of string
//xi ) {
my ($id, $data) = ($1, $2);
- if (ref($ref) && UNIVERSAL::can($ref, 'can')) {
+ if (ref($ref) && blessed($ref)) {
# carp("$ref is an object, and its ref=", ref($ref), Dumper($ref));
if($ref->can($id)) {
my @args = ();