Only mangle $blosxom::title and body if defined.

This fixes a warning when the do_interpolate route is called to
interpolate non-story templates.

diff --git a/general/interpolate_fancy b/general/interpolate_fancy
index 4b8b759777373a01aa5093a56b6d6b4151caeb2e..45208d24d77feec491916c5cbce68f8144aee2bf 100644 (file)
--- a/general/interpolate_fancy
+++ b/general/interpolate_fancy
@@ -109,8 +109,8 @@ sub do_interpolate {
     # Halt recursive interpolation of story $body
     # by mangling interpolation tags (to be unmangled in a moment)
     unless ($recurse_into_story) {
-      $blosxom::title =~ s/<(\@|\??\$)/<#INTERPOLATE_FANCY_DEFANG#$1/gsi;
-      $blosxom::body =~ s/<(\@|\??\$)/<#INTERPOLATE_FANCY_DEFANG#$1/gsi;
+      $blosxom::title =~ s/<(\@|\??\$)/<#INTERPOLATE_FANCY_DEFANG#$1/gsi if defined $blosxom::title;
+      $blosxom::body =~ s/<(\@|\??\$)/<#INTERPOLATE_FANCY_DEFANG#$1/gsi if defined $blosxom::body;
     }
 
     my $template = shift;