From: Robert Buels <rmb32@cornell.edu>
Date: Thu, 18 Feb 2010 22:10:53 +0000 (-0800)
Subject: fixed POD bug, was not correctly printing scalar refs
X-Git-Tag: 0.05003~10^2~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fca5431b25d9445bb0b948b525822d7e5643c624;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

fixed POD bug, was not correctly printing scalar refs
---

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 45fe926..08a685f 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -1494,9 +1494,11 @@ sub _make_pod {
 	    $self->_pod( $class,
 			 join "\n", map {
 			     my $s = $attrs->{$_};
-			     $s = !defined $s      ? 'undef'          :
-				  length($s) == 0  ? '(empty string)' :
-                                                     $s;
+			     $s = !defined $s         ? 'undef'          :
+                                  length($s) == 0     ? '(empty string)' :
+                                  ref($s) eq 'SCALAR' ? $$s              :
+                                                        $s
+                                  ;
 
 			     "  $_: $s"
 			 } sort keys %$attrs,