Re^3: Same function multiples unknown modules

At the top of the loop, the line,

    next unless m/^Main|Addins/;
[download]

will restrict attention to those two top level namespaces.

After Compline,
Zaxo

Comment on Re^3: Same function multiples unknown modules Download Code

Replies are listed 'Best First'.
Re^4: Same function multiples unknown modules by Delusional (Beadle) on Sep 26, 2005 at 09:56 UTC
Thanks again Zaxo, I ran a test using this, however, the $eval fails on me (in a browser I get Error 500)... I use logging in the scripting to catch errors as well as MySQL calls (and anything else I choose to log). The log shows the following when the script is executed: Sep 26, 2005 (10:49:52) : ERROR SITUATION: Interface Crash, error message: syntax error at Main/Menu.pm line 101, near "$_::runonce(" Compilation failed in require at d:\PROGRA~1\APACHE~1\apache\cgi-bin\intern2.cgi line 31. In the file Main/Menu.pm I have your code as: `sub sub_menus { for (keys %INC) { next unless m/^Main\|Addins/; s!/!::!g; s/\.pm$//; #print "<font face=\"Arial\" size=\"2\">$_<br></font>\n"; eval { $_::runonce() }; } }` [download] The function, runonce (sub runonce), is available in exactly one file. Perhaps I shouldn't use sub, rather someother addressing scheme that I'm unawear of? If I comment out the eval line and use the print line, execution runs clean (with the exception of runonce not running). I assume the problem lye with the logging I have to catch problems and log them: `$SIG{__DIE__} = \&error_crash_trapper; $SIG{__WARN__} = \&warn_crash_trapper;` [download] Is there any other way to achieve this? Essentially I'm looking for simplicity and the use of a 'dummy' routine that doesn't rely on hard coded information which then allows for dynamic implementation.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Same function multiples unknown modules
by Delusional (Beadle) on Sep 26, 2005 at 09:56 UTC

sub sub_menus {
  for (keys %INC) {
    next unless m/^Main|Addins/;
    s!/!::!g;
    s/\.pm$//;
    #print "<font face=\"Arial\" size=\"2\">$_<br></font>\n";
    eval { $_::runonce() };
  }
}
[download]

$SIG{__DIE__} = \&error_crash_trapper;
$SIG{__WARN__} = \&warn_crash_trapper;
[download]

[reply]
[d/l]
[select]