From 13a87b3b20ad0115a90f3751d9bcd8835f261064 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 30 Apr 2003 13:09:50 +0000
Subject: - no non empty prototypes - s/sub { one func call }/code ref/

---
 perl-install/standalone/drakfont | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index e35606fa2..e7587a65f 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -259,7 +259,7 @@ sub search_windows_font() {
 }
 
 sub is_a_font($) {
-    local $_ = $_[0];
+    local ($_) = @_;
     /\.ttf$/i || /\.pfa$/i || /\.pfb$/i || /\.pcf$/i || /\.pcf\.gz$/i || /\.pfm$/i || /\.gsf$/;
 }
 
@@ -585,7 +585,7 @@ sub interactive_mode() {
 						     ), 1,
 					       new Gtk2::HBox(0, 2), 0,
 					       gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'),
-						      gtksignal_connect(new Gtk2::Button(N("About")), clicked => sub { help() }),
+						      gtksignal_connect(new Gtk2::Button(N("About")), clicked => \&help),
 						      gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { Gtk2->main_quit() }),
 						     ),
 					      ),
@@ -732,7 +732,7 @@ sub font_choice() {
     $file_dialog->show();
 }
 
-sub file_ok_sel($$) {
+sub file_ok_sel {
     my ($_widget, $file_selection) = @_;
     my $file_name = $file_selection->get_filename();
     print "-- @install\n";
@@ -909,7 +909,7 @@ sub import_status_uninstall() {
     backend_mod();
 }
 
-sub progress($$$) {
+sub progress {
     my ($progressbar, $incr, $label_text) = @_;
     my ($new_val) = $progressbar->fraction;
     $new_val += $incr;
-- 
cgit v1.2.1