diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-05-26 11:02:53 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-05-26 11:02:53 +0000 |
| commit | 42eda4364a83f240c6aed144c53ac9208cf491f4 (patch) | |
| tree | 42601d2582979a27145f6f434043e132840500b2 | |
| parent | e05ddb281beb452808a0f3669c93c907acf1fa77 (diff) | |
| download | drakx-backup-do-not-use-42eda4364a83f240c6aed144c53ac9208cf491f4.tar drakx-backup-do-not-use-42eda4364a83f240c6aed144c53ac9208cf491f4.tar.gz drakx-backup-do-not-use-42eda4364a83f240c6aed144c53ac9208cf491f4.tar.bz2 drakx-backup-do-not-use-42eda4364a83f240c6aed144c53ac9208cf491f4.tar.xz drakx-backup-do-not-use-42eda4364a83f240c6aed144c53ac9208cf491f4.zip | |
be perl_checker prototype compliant
| -rw-r--r-- | perl-install/any.pm | 14 |
1 files 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 |