summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-06-21 12:59:40 +0000
committerOlivier Blin <oblin@mandriva.org>2005-06-21 12:59:40 +0000
commit08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3 (patch)
treef08cb617494e8025bad480acef6760ddd95cda28 /perl-install
parent96a3aea1cc680050c5c5afa07552787a18df6958 (diff)
downloaddrakx-backup-do-not-use-08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3.tar
drakx-backup-do-not-use-08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3.tar.gz
drakx-backup-do-not-use-08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3.tar.bz2
drakx-backup-do-not-use-08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3.tar.xz
drakx-backup-do-not-use-08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3.zip
perl_checker
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/pxe.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/pxe.pm b/perl-install/network/pxe.pm
index cca17a7c9..91c61c685 100644
--- a/perl-install/network/pxe.pm
+++ b/perl-install/network/pxe.pm
@@ -246,7 +246,7 @@ sub profile_exists {
sub find_next_profile_name {
my ($profiles_conf, $prefix) = @_;
- my $i = undef;
+ my $i;
/^$prefix(\d*)$/ && $1 >= $i and $i = $1 + 1 foreach network::pxe::list_profiles($profiles_conf);
"$prefix$i";
}