From 8d8e3d54bd4cd62dfb851063501d8a7ece8c0a08 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 19 Feb 2002 11:11:00 +0000
Subject: anchor the -IP match at the end of the string

---
 perl-install/install2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index be55018c1..05c0f2646 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -476,9 +476,9 @@ sub main {
 
     #- done after module dependencies are loaded for "vfat depends on fat"
     if ($::auto_install) {
-	if ($::auto_install =~ /-IP(\.pl)?/) {
+	if ($::auto_install =~ /-IP(\.pl)?$/) {
 	    my $ip = join('', map { sprintf "%02X", $_ } split '\.', $o->{intf}{IPADDR});
-	    $::auto_install =~ s/-IP(\.pl)?/-$ip$1/;
+	    $::auto_install =~ s/-IP(\.pl)?$/-$ip$1/;
 	}
 	require install_steps_auto_install;
 	eval { $o = $::o = install_any::loadO($o, $::auto_install) };
-- 
cgit v1.2.1