Re: Error with require LABEL;

This line in CMQIA.pl:

if($choice !~ /ready/i) {require "Unit6.pl"; system("Unit6.pl"); requi
+re "Unit6.pl"; goto ORIGINAL;}
[download]

Should that not be:

if($choice !~ /ready/i) {require "Unit6.pl";}
[download]

Also, it might be safer to use if ... elsif

Update: see revised comment below

Comment on Re: Error with require LABEL; Select or Download Code

Replies are listed 'Best First'.
Re^2: Error with require LABEL; by slinky773 (Sexton) on Dec 19, 2013 at 23:24 UTC
That skips `require "Unit6.pl";` entirely. I have no idea why. It just goes straight onto the rest of the script.	[reply] [d/l]
Re^3: Error with require LABEL; by jethro (Monsignor) on Dec 20, 2013 at 21:49 UTC
require() skips loading the second time because it records internally which file it already has loaded and therefore doesn't need to load again. This is because require was used to load libraries in early perl versions. Later use() replaced require() because it does much more. But using require to start other scripts is definitely not as intended. As you have experienced.	[reply]