summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-05-26 11:02:53 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-05-26 11:02:53 +0000
commit42eda4364a83f240c6aed144c53ac9208cf491f4 (patch)
tree42601d2582979a27145f6f434043e132840500b2 /perl-install
parente05ddb281beb452808a0f3669c93c907acf1fa77 (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm14
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