summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-20 08:17:05 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-20 08:17:05 +0000
commitb8cad5aeb811a475baf2fe242f52f3fd4a8abc30 (patch)
treeecb5b23cb1a2b159368055042bc88b68a57d483e /perl-install/my_gtk.pm
parent9aa15e945aa3846e06d2153bb1175d2372fbf7fa (diff)
downloaddrakx-b8cad5aeb811a475baf2fe242f52f3fd4a8abc30.tar
drakx-b8cad5aeb811a475baf2fe242f52f3fd4a8abc30.tar.gz
drakx-b8cad5aeb811a475baf2fe242f52f3fd4a8abc30.tar.bz2
drakx-b8cad5aeb811a475baf2fe242f52f3fd4a8abc30.tar.xz
drakx-b8cad5aeb811a475baf2fe242f52f3fd4a8abc30.zip
fix #3952: do not pass extra argument (gc altered
common::take_screenshot() api in r1.172 but forget to alter all callees)
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 7d5be1f41..d5bfd493c 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -228,7 +228,7 @@ sub _create_window($$) {
require install_gtk;
install_gtk::create_big_help($::o);
} elsif ($::isInstall && $d eq 'screenshot') {
- common::take_screenshot($o);
+ common::take_screenshot();
} elsif (chr($_[1]{keyval}) eq 'e' && $_[1]{state} & 8) {
log::l("Switching to " . ($::expert ? "beginner" : "expert"));
$::expert = !$::expert;