From 63f3aaafd80e3b77babc59aade1235c115c2d4f2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 24 Feb 2003 07:59:47 +0000 Subject: final embedding cleanups --- perl-install/standalone.pm | 2 +- perl-install/ugtk2.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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) = @_; -- cgit v1.2.1