From da3ace08f951a08a18a54506d0f046590fcef093 Mon Sep 17 00:00:00 2001
From: Chia-liang Kao <clkao@clkao.org>
Date: Mon, 15 Jun 2009 22:36:12 +0800
Subject: [PATCH 1/2] recognize Data::SExpression::Symbol as scalar so fold_alist works in use_symbol_class
---
lib/Data/SExpression.pm | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/lib/Data/SExpression.pm b/lib/Data/SExpression.pm
index 3da0889..5e1c2b7 100644
--- a/lib/Data/SExpression.pm
+++ b/lib/Data/SExpression.pm
@@ -305,7 +305,9 @@ number
sub scalarp ($) {
my $thing = shift;
- return !ref($thing) || ref($thing) eq "GLOB";
+ return !ref($thing) ||
+ ref($thing) eq "GLOB" ||
+ ref($thing) eq 'Data::SExpression::Symbol';;
}
=head1 Data::SExpression::Parser callbacks
--
1.6.3.9.g6345
