diff options
Diffstat (limited to 'perl-install/standalone.pm')
| -rw-r--r-- | perl-install/standalone.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index de2f04a12..707f0d9ec 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -146,7 +146,7 @@ Copyright (C) 1999-2002 MandrakeSoft by <install\@mandrakesoft.com> sub on_request_help { my ($o, $link) = @_; - my $browser = $ENV{BROWSER} || MDK::Common::Func::find { -x "/usr/bin/$_" } qw(mozilla konqueror galeon) or $o->ask_warn('',N("No browser is installed on your system, Please install one if you want to browse the help system")); + my $browser = $ENV{BROWSER} || MDK::Common::Func::find { -x "/usr/bin/$_" } qw(mozilla konqueror galeon) or $o->ask_warn('', N("No browser is installed on your system, Please install one if you want to browse the help system")); log::explanations("Connection to help system at $link"); system("$browser $link &"); } @@ -303,7 +303,7 @@ sub rm_rf { } sub cp_af { - my $retval = MDK::Common::File::cp_af @_; + my $retval = MDK::Common::File::cp_af(@_); my $dest = pop @_; explanations "copied recursively @_ to $dest"; return $retval; @@ -336,14 +336,14 @@ sub update_gnomekderc { sub chmod { - my $retval = CORE::chmod @_; + my $retval = CORE::chmod(@_); my $mode = shift @_; explanations sprintf("changed mode of %s to %o", $_, $mode) foreach @_; return $retval; } sub chown { - my $retval = CORE::chown @_; + my $retval = CORE::chown(@_); my $uid = shift @_; my $gid = shift @_; explanations sprintf("changed owner of $_ to $uid.$gid") foreach @_; @@ -352,27 +352,27 @@ sub chown { sub unlink { explanations "removed files/directories @_"; - CORE::unlink @_; + CORE::unlink(@_); } sub link { explanations "hard linked file $_[0] to $_[1]"; - CORE::link $_[0], $_[1]; + CORE::link($_[0], $_[1]); } sub symlink { explanations "symlinked file $_[0] to $_[1]"; - CORE::symlink $_[0], $_[1]; + CORE::symlink($_[0], $_[1]); } sub rename { explanations "renamed file $_[0] to $_[1]"; - CORE::rename $_[0], $_[1]; + CORE::rename($_[0], $_[1]); } sub system { explanations "launched command: @_"; - CORE::system @_; + CORE::system(@_); } 1; |