X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FBase.pm;h=4f575236c69eec65deab59691c90172d48cb5d2d;hb=b7f7ec5eb32d549d43801c8448ec8d98c281c41e;hp=c93fa90e1fd4385372f2c99fec02773df6f8295b;hpb=23d1f36b238acbceaa1ecd71743ce4f5b8e8fd7e;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index c93fa90..4f57523 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -1545,9 +1545,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,