From df2219065ded698aa8dc2a0503a98ca9a367d6c9 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Thu, 12 Jan 2006 09:40:33 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/searchable-scrollback | 36 +++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/src/perl/searchable-scrollback b/src/perl/searchable-scrollback
index e8e0296b..49b3e626 100644
--- a/src/perl/searchable-scrollback
+++ b/src/perl/searchable-scrollback
@@ -80,25 +80,25 @@ sub search {
    my $search = $self->special_encode ($self->{search});
 
    no re 'eval'; # just to be sure
-   my $re = qr/$search/;
-
-   while ($self->nrow > $row && $row > -$self->nsaved) {
-      my $line = $self->line ($row)
-         or last;
-
-      my $text = $line->t;
-      if ($text =~ /$re/g) {
-         do {
-            push @{ $self->{found} }, [$line->coord_of ($-[0]), $line->coord_of ($+[0])];
-         } while $text =~ /$re/g;
-
-         $self->{row} = $row;
-         $self->view_start (-$row + ($self->nrow >> 1));
-         $self->want_refresh;
-         last;
+   if (my $re = eval { qr/$search/ }) {
+      while ($self->nrow > $row && $row > -$self->nsaved) {
+         my $line = $self->line ($row)
+            or last;
+
+         my $text = $line->t;
+         if ($text =~ /$re/g) {
+            do {
+               push @{ $self->{found} }, [$line->coord_of ($-[0]), $line->coord_of ($+[0])];
+            } while $text =~ /$re/g;
+
+            $self->{row} = $row;
+            $self->view_start (-$row + ($self->nrow >> 1));
+            $self->want_refresh;
+            last;
+         }
+
+         $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
       }
-
-      $row = $dir < 0 ? $line->beg - 1 : $line->end + 1;
    }
 
    $self->scr_bell unless $self->{found};
-- 
2.34.1