summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-09 01:29:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-09 01:29:08 +0000
commit9e30f4398521650e33adf2eecb95f929bdae484d (patch)
tree3235daa816736cee0f1689c7621702b2f1158220 /perl-install/standalone
parentb06f96d9003f89d48ef5d5f3f56f3e3e92438ea9 (diff)
downloaddrakx-backup-do-not-use-9e30f4398521650e33adf2eecb95f929bdae484d.tar
drakx-backup-do-not-use-9e30f4398521650e33adf2eecb95f929bdae484d.tar.gz
drakx-backup-do-not-use-9e30f4398521650e33adf2eecb95f929bdae484d.tar.bz2
drakx-backup-do-not-use-9e30f4398521650e33adf2eecb95f929bdae484d.tar.xz
drakx-backup-do-not-use-9e30f4398521650e33adf2eecb95f929bdae484d.zip
(find_files_to_restore) cleanups
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbackup5
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) {