Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^4: use and require inside subs

by ysth (Canon)
on Nov 03, 2004 at 07:01 UTC ( [id://404829] : note . print w/replies, xml ) Need Help??

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;