Help for this page

Select Code to Download


  1. or download this
         tie *STDOUT, 'InstallerHandleTie', $outfile, *STDOUT;
     tie *STDERR, 'InstallerHandleTie', $outfile, *STDERR;
  2. or download this
    package InstallerHandleTie;

use strict;
...
   return ($result == @$self);
}
1;     # required 1 to end the Perl module
  3. or download this
    my $gfh = *STDOUT;
my $geh = *STDERR;
...
      untie *STDOUT;
      untie *STDERR;
}