From 9e30f4398521650e33adf2eecb95f929bdae484d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 9 Aug 2004 01:29:08 +0000
Subject: (find_files_to_restore) cleanups

---
 perl-install/standalone/drakbackup | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone/drakbackup')

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index d9cf6a4c2..4961da489 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -3214,14 +3214,13 @@ sub find_files_to_restore() {
 				1, $file_wildcard_entry,
 				0, gtksignal_connect(new Gtk2::Button(N("Search Backups")), clicked => sub {
 					local $_ = $file_wildcard_entry->get_text; 
-					s|^\*|\\\*|g;
+					s|^\*|\\*|g;
 					my $wildcard = $_;
 					@possible_sources = glob "$conf{PATH_TO_SAVE}/list*";
 					$model->clear;
 					my $match = 0;
 					foreach my $list (@possible_sources) {
-						my @listing = cat_($list);
-						my @matches = grep { /$wildcard/ } @listing;
+						my @matches = grep { /$wildcard/ } cat_($list);
 						if (@matches) {
 							my $list_entry = $model->append_set(undef, [ 0 => $list, 2 => '' ]);
 							foreach (@matches) {
-- 
cgit v1.2.1