diff options
| -rw-r--r-- | perl-install/standalone.pm | 2 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
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) = @_; |