[Expectperl-discuss] question about intertact sub

[K. H. <k4...@ya...>]

Hi Roland, just wanted to know if the following change
to the interact method is possible:

here is the existing code:

  $self->set_group(@old_group);
  # If old_group was undef, make sure that occurs.
This is a slight hack since
  # it modifies the value directly.
  # Normally an undef passed to set_group will return
the current groups.
  # It is possible that it may be of worth to make it
possible to undef
  # The current group without doing this.
  unless (defined (@old_group)) {
    @{${*$self}{exp_Listen_Group}} = ();
  }

Can this be replaced by:

if(not defined(@old_group))
{
   @old_group = ();
}
$self->set_group(@old_group);

i.e, I want to avoid the direct access as in the
following statement:

 unless (defined (@old_group)) {
    @{${*$self}{exp_Listen_Group}} = ();
  }

Please let me know.
Thanks

__________________________________________________
Do You Yahoo!?
Yahoo! Shopping - Thousands of Stores. Millions of Products.
http://shopping.yahoo.com/