fix to bug 23722

[maypole.git] / lib / Maypole.pm

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index bc41335cd5758aa76565f18c8670f29f2f5acff9..6b40b7052b5ee5e039a61c90c283b3a86340ec21 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -638,13 +638,13 @@ sub __setup_plain_template
     # It's just a plain template
     $self->model_class(undef);
 
-    # FIXME: this is likely to be redundant and is definately causing problems.
-
-    my $path = $self->path;
-    $path =~ s{/$}{};    # De-absolutify
-    $self->path($path);
-
-    $self->template($self->path);
+    unless ($self->template) {
+      # FIXME: this is likely to be redundant and is definately causing problems.
+      my $path = $self->path;
+      $path =~ s{/$}{};    # De-absolutify
+      $self->path($path);
+      $self->template($self->path);
+    }
 }
 
 # The model has been processed or skipped (if is_applicable returned false),