From 8c290c3b917b1683a8f4355019366d45d5ddb42f Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Mon, 3 Dec 2007 16:42:39 +0100
Subject: Subst::Complex is overkill here, as we're only returning a flat
 string.

---
 lib/LXRng/Markup/File.pm | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/lib/LXRng/Markup/File.pm b/lib/LXRng/Markup/File.pm
index 084d4a6..986f05c 100644
--- a/lib/LXRng/Markup/File.pm
+++ b/lib/LXRng/Markup/File.pm
@@ -78,19 +78,24 @@ sub format_code {
 
     my $tree = $self->context->vtree();
     my $path = $self->context->path();
-    Subst::Complex::s($frag,
-		      $idre => sub {
-			  my $sym = $_[1];
-			  unless (exists($$res{$sym})) {
-			      $sym = safe_html($sym);
-			      return qq{<a href="+code=$sym" class="sref">$sym</a>}
-			  }
-			  else {
-			      return safe_html($sym);
-			  }
-		      },
-		      qr/(.*?)/ => sub { return safe_html($_[0]) },
-		      );
+
+    $frag =~ s{(.*?)$idre|(.+)}{
+	if ($2) {
+	    unless (exists($$res{$2})) {
+		my $pre = $1;
+		my $sym = safe_html($2);
+		safe_html($pre).
+		    qq{<a href="+code=$sym" class="sref">$sym</a>};
+	    }
+	    else {
+		safe_html($1.$2);
+	    }
+	}
+	else {
+	    safe_html($3);
+	}
+    }ge;
+    return $frag;
 }
 
 sub format_raw {
-- 
cgit v1.2.3