From 08a4252cbb7af296fbcd542b0ea85c9f8c0a15f3 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 21 Jun 2005 12:59:40 +0000
Subject: perl_checker

---
 perl-install/network/pxe.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network/pxe.pm')

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";
 }
-- 
cgit v1.2.1