summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/standalone.pm2
-rw-r--r--perl-install/ugtk2.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 81941d809..483ef0362 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -118,7 +118,7 @@ foreach (@ARGV) {
version();
exit(0);
} elsif (/^--embedded$/) {
- ($::XID, $::CCPID) = splice @ARGV, $i, 2;
+ $::XID = splice @ARGV, $i, 1;
$::isEmbedded = 1;
} elsif (/^--expert$/) {
$::expert = 1;
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index f2006d853..011485bf2 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -734,7 +734,7 @@ add_icon_path(@icon_paths,
# launch the main loop. Use $o->{retval} to indicate that the window needs
# to terminate.
# Set $::isWizard to have a wizard appearance.
-# Set $::isEmbedded, $::CCPID and $::XID so that the window will plug.
+# Set $::isEmbedded and $::XID so that the window will plug.
sub new {
my ($type, $title, %opts) = @_;