Help for this page

Select Code to Download


  1. or download this
    BEGIN {
    if ($^O eq 'MSWin32') {
...
        # else load $config from flat files
    }
} # end system specific compile time code
  2. or download this
    require Win32::TieRegistry;
Win32::TieRegistry::->import(Delimiter=>"/", ArrayValues=>0 );
  3. or download this
    use if $^O eq 'MSWin32',
    "Win32::TieRegistry", Delimiter=>"/", ArrayValues=>0;