package Cmds; #{{{ use Readonly; sub RO(\[$@%]@){goto &Readonly}; use File::SearchPath qw /searchpath/; RO our $sig => "%%"; #improbable filename prefix RO our $Dflt_Path => "/bin:/usr/bin:/sbin:/usr/sbin:/usr/local/bin"; sub skey($) {$sig.$_[0]} our %Global_Cache = ( # Global cache for non-OO use skey("asis") => 0, skey("Firstcap") => 1, skey("prefix_ln") => 0, skey("post_ln") => 0, skey("SAFE_PATH") => $Dflt_Path, skey("PATH") => $Dflt_Path, skey("path_safe") => 1, skey("imp_init") => 1, #global already is initialized! ;-") ); #### Use of uninitialized value $Cmds::sig in concatenation (.) or string at ./shaper.pl line 58. Use of uninitialized value $Cmds::sig in concatenation (.) or string at ./shaper.pl line 58. Use of uninitialized value $Cmds::sig in concatenation (.) or string at ./shaper.pl line 58. Use of uninitialized value $Cmds::sig in concatenation (.) or string at ./shaper.pl line 58. Error extracting directories from environment. No defined values supplied. Internal programming error at ./shaper.pl line 76 Compilation failed in require at /home/law/bin/lib/Network/Interface.pm line 6. BEGIN failed--compilation aborted at /home/law/bin/lib/Network/Interface.pm line 6. Compilation failed in require at ./shaper.pl line 226. BEGIN failed--compilation aborted at ./shaper.pl line 226.