| Subject: | Default display name in F::S::Field |
The field name might have multiple underscores. The default display name
should replace all of them for spaces. The current behaviour only
replaces the first one:
$name =~ s/_/ /;
instead of
$name =~ s/_/ /g;
A patch is attached.
Regards,
André Walker
| Subject: | 0001-substitute-all-_-s-for-whitespace.patch |
From 92e08a19c2eb9e64c79810435ae9c7b632f6c3a8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Walker?= <andre@andrewalker.net>
Date: Tue, 1 Nov 2011 23:21:09 -0200
Subject: [PATCH] substitute all _'s for whitespace
---
lib/Form/Sensible/Field.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/Form/Sensible/Field.pm b/lib/Form/Sensible/Field.pm
index cb6c19d..537f2d2 100644
--- a/lib/Form/Sensible/Field.pm
+++ b/lib/Form/Sensible/Field.pm
@@ -20,7 +20,7 @@ has 'display_name' => (
required => 1,
default => sub {
my $name = ucfirst(shift->name());
- $name =~ s/_/ /;
+ $name =~ s/_/ /g;
return $name;
},
lazy => 1,
--
1.7.6.4