How can I force unload a Perl module?

Question

Hi I am using a perl script written by another person who is no longer in the company. If I run the script as a stand alone, then the output are as expected. But when I call the script from another code repeatedly, the output is wrong except for the first time.

I suspect some variables are not initialised properly. When it is called standalone, each time it exits and all the variable values are initialised to defaults. But when called from another perl script, the modules and the variable values are probably carried over to the next call of the script.
Is there any way to flush out the called script from memory before I call it next time?

I tried enabling warning and it was throwing up 1000s of lines of warning...!

EDIT: How I am calling the other script:

The code looks like this:

do "processing.pl";
...
...
...

process(params); #A function in processing.pl
...
...
...

Answer 1

If you want to force the module to be reloaded, delete its entry from %INC and then reload it.

For example:

sub reload_module { 
    delete $INC{'Your/Silly/Module.pm'};
    require Your::Silly::Module;
    Your::Silly::Module->import;
}

Note that if this module relies on globals in other modules being set, those may need to be reloaded as well. There's no easy way to know without taking a peak at the code.

Answer 2

Hi I am using a perl script written by another person who is no longer in the company. I tried enabling warning and it was throwing up 1000s of lines of warning...!

There's your problem right there. The script was not written properly, and should be rewritten.

Ask yourself this question: if it has 1000s of warnings when you enable strict checking, how can you be sure that it is doing the right thing? How can you be sure that it is not clobbering files, trashing data sets, making a mess of your filesystem? Chances are it is doing all of these things, either deliberately or accidentally.

I wouldn't trust running an error-filled script written by someone no longer with the company. I'd rewrite it and be sure that it was doing what I needed it to do.

Answer 3

Unloading a module is a more difficult task than simply removing the %INC entry of the module. Take a look at Class::Unload from CPAN.