diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-09 01:29:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-09 01:29:08 +0000 |
| commit | 9e30f4398521650e33adf2eecb95f929bdae484d (patch) | |
| tree | 3235daa816736cee0f1689c7621702b2f1158220 /perl-install | |
| parent | b06f96d9003f89d48ef5d5f3f56f3e3e92438ea9 (diff) | |
| download | drakx-9e30f4398521650e33adf2eecb95f929bdae484d.tar drakx-9e30f4398521650e33adf2eecb95f929bdae484d.tar.gz drakx-9e30f4398521650e33adf2eecb95f929bdae484d.tar.bz2 drakx-9e30f4398521650e33adf2eecb95f929bdae484d.tar.xz drakx-9e30f4398521650e33adf2eecb95f929bdae484d.zip | |
(find_files_to_restore) cleanups
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 5 |
1 files changed, 2 insertions, 3 deletions
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) { |