subject:"question about strict"

Re: question about strict

2004-07-21 Thread Randy W. Sims

On 7/21/2004 8:20 PM, FyD wrote: Dear All, I have two perl scripts: - The first one: sub Tt { $TTT = uc($TTT); if(($TTT ne "ON") && ($TTT ne "OFF")){ print "ERROR: Check variable TTT";} else { print "It is a Test...";} } # ---MAIN--- $TTT = "OFF"; Tt(); If I use $TTT = "

Re: question about strict

2004-07-21 Thread Flemming Greve Skovengaard

FyD wrote: Dear All, I have two perl scripts: - The first one: sub Tt { $TTT = uc($TTT); if(($TTT ne "ON") && ($TTT ne "OFF")){ print "ERROR: Check variable TTT";} else { print "It is a Test...";} } # ---MAIN--- $TTT = "OFF"; Tt(); If I use $TTT = "OFF", I get 'It is a T

question about strict

2004-07-21 Thread FyD

Dear All, I have two perl scripts: - The first one: sub Tt { $TTT = uc($TTT); if(($TTT ne "ON") && ($TTT ne "OFF")){ print "ERROR: Check variable TTT";} else { print "It is a Test...";} } # ---MAIN--- $TTT = "OFF"; Tt(); If I use $TTT = "OFF", I get 'It is a Test...' an