From 42eda4364a83f240c6aed144c53ac9208cf491f4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 26 May 2003 11:02:53 +0000 Subject: be perl_checker prototype compliant --- perl-install/any.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/perl-install/any.pm b/perl-install/any.pm index e912c8e72..9632689b6 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -772,10 +772,10 @@ sub report_bug { } sub devfssymlinkf { - my ($o_if, $of) = @_; - my $if = $o_if->{device}; + my ($if_struct, $of) = @_; + my $if = $if_struct->{device}; - my $devfs_if = $o_if->{devfs_device}; + my $devfs_if = $if_struct->{devfs_device}; $devfs_if ||= devices::to_devfs($if); $devfs_if ||= $if; @@ -796,11 +796,11 @@ UNREGISTER ^$devfs_if\$ CFUNCTION GLOBAL unlink $if symlinkf($if, "$::prefix/dev/$of"); } sub devfs_rawdevice { - my ($o_if, $of) = @_; + my ($if_struct, $of) = @_; - my $devfs_if = $o_if->{devfs_device}; - $devfs_if ||= devices::to_devfs($o_if->{device}); - $devfs_if ||= $o_if->{device}; + my $devfs_if = $if_struct->{devfs_device}; + $devfs_if ||= devices::to_devfs($if_struct->{device}); + $devfs_if ||= $if_struct->{device}; output_p("$::prefix/etc/devfs/conf.d/$of.conf", "REGISTER ^$devfs_if\$ EXECUTE /etc/dynamic/scripts/rawdevice.script add /dev/$devfs_if /dev/$of -- cgit v1.2.1