home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _5d6b38be04e99407f550bffa1524657f < prev    next >
Encoding:
Text File  |  2004-06-01  |  682 b   |  31 lines
  1. # NOTE: Derived from blib\lib\Tk\Widget.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Tk::Widget;
  5.  
  6. #line 1438 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\ASkludge.al)"
  7. sub ASkludge
  8. {
  9.  my ($hash,$sense) = @_;
  10.  foreach my $key (%$hash)
  11.   {
  12.    if ($key =~ /-.*variable/ && ref($hash->{$key}) eq 'SCALAR')
  13.     {
  14.      if ($sense)
  15.       {
  16.        my $val = ${$hash->{$key}};
  17.        require Tie::Scalar;
  18.        tie ${$hash->{$key}},'Tie::StdScalar';
  19.        ${$hash->{$key}} = $val;
  20.       }
  21.      else
  22.       {
  23.        untie ${$hash->{$key}};
  24.       }
  25.     }
  26.   }
  27. }
  28.  
  29. # end of Tk::Widget::ASkludge
  30. 1;
  31.