From 0405309dde44eb8c66d4f4612860a93e267e6c84 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 11 Jun 2001 23:13:24 +0000 Subject: - enhance perl2fcalls (which now handle /xxx(...)/ as a regexp in more cases) - remove the use of /xxx (...)/x by /xxx(...)/ as perl2fcalls is getting smart => make gc happy which is very important, what would we be without him? --- perl-install/bootloader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index a7758e897..1be6dfd73 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -136,7 +136,7 @@ sub add_entry($$) { my ($entries, $v) = @_; my (%usedold, $freeold); - do { $usedold{$1 || 0} = 1 if $_->{label} =~ /^old ([^_]*)_/x } foreach @$entries; + do { $usedold{$1 || 0} = 1 if $_->{label} =~ /^old([^_]*)_/ } foreach @$entries; foreach (0..scalar keys %usedold) { exists $usedold{$_} or $freeold = $_ || '', last } foreach (@$entries) { -- cgit v1.2.1