Determine if run directly or called? 1

[CJason]

Is there a way to determine if your perl script is being run directly:

./script.pl

or called from another script:

require("script.pl");

during runtime?

I have some scripts that can either be called directly or via a "require". The script has a return(1) in it...which is perfect for the require, but gets a "can't return outside a subroutine" warning if run directly. So, if I can determine how it is being run, I can determine if I need to "exit" or "return"...if that makes sense.

 

[CJason]

I think I got it...

exists($INC{"script.pl"})?return(1):exit(1);

Anyone see a better way than that?

 

[TrojanWarBlade]

If your script.pl has a "return 1;" in it, simply drop the word "return from it thus: "1;".




Trojan.

 

[CJason]

That is a very good idea, Trojan...let me look into that a bit. Thanks for the advice!!!