s/\./-/ in fieldname

diff --git a/lib/Reaction/UI/FocusStack.pm b/lib/Reaction/UI/FocusStack.pm
index c6a6743..0af90a8 100644 (file)
--- a/lib/Reaction/UI/FocusStack.pm
+++ b/lib/Reaction/UI/FocusStack.pm
@@ -22,7 +22,7 @@ sub push_viewport {
   my $tail = $self->vp_tail;
   my $loc = $self->vp_count;
   if ($self->has_loc_prefix) {
-    $loc = join('.', $self->loc_prefix, $loc);
+    $loc = join('-', $self->loc_prefix, $loc);
   }
   my $vp = $class->new(
              %create,