question about strict

[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...' and if I use $TTT="O" I get
'ERROR: Check variable TTT'. This, it is normal for me.

- The second script using 'strict' this time:
use strict;
sub Tt {
   my $TTT;  $TTT = uc($TTT); 
   if(($TTT ne "ON") && ($TTT ne "OFF")){ print "ERROR: Check variable TTT";} 
   else { print "It is a Test...";} 
   }
#   ---MAIN---
   my $TTT = "OFF";
   Tt();

If I use $TTT = "OFF" I get time 'ERROR: Check variable TTT', Why ?

Thanks, Francois

   
   


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>