summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:09:50 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-30 13:09:50 +0000
commit13a87b3b20ad0115a90f3751d9bcd8835f261064 (patch)
treea1289920f1b761d0c1108157cdaf0c4c1ed4b552 /perl-install/standalone
parentb60f1f496782daa2ca8c2a443dd3d0c06e4c04d6 (diff)
downloaddrakx-backup-do-not-use-13a87b3b20ad0115a90f3751d9bcd8835f261064.tar
drakx-backup-do-not-use-13a87b3b20ad0115a90f3751d9bcd8835f261064.tar.gz
drakx-backup-do-not-use-13a87b3b20ad0115a90f3751d9bcd8835f261064.tar.bz2
drakx-backup-do-not-use-13a87b3b20ad0115a90f3751d9bcd8835f261064.tar.xz
drakx-backup-do-not-use-13a87b3b20ad0115a90f3751d9bcd8835f261064.zip
- no non empty prototypes
- s/sub { one func call }/code ref/
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont8
1 files changed, 4 insertions, 4 deletions
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;