Browse Source

Fortified scoping in autotest.pl

Alois Mahdal 12 years ago
parent
commit
2863829125
1 changed files with 5 additions and 4 deletions
  1. 5
    4
      bin/autotest.pl

+ 5
- 4
bin/autotest.pl View File

@@ -21,10 +21,11 @@ use v5.10;
21 21
 use warnings;
22 22
 use File::Spec;
23 23
 
24
-$PLATFORM   = (-d "c:\\windows" ? 'windows' : 'unix' );
25
-$DUMPS      = "dumps";
26
-$TESTS      = "t";
27
-$COLORS     = { windows => { ok => 'color 0a', nok => 'color 0c' } };
24
+my $PLATFORM    = (-d "c:\\windows" ? 'windows' : 'unix' );
25
+my $COLORS      = { windows => { ok => 'color 0a', nok => 'color 0c' } };
26
+my $DUMPS       = "dumps";
27
+my $TESTS       = "t";
28
+
28 29
 
29 30
 sub clear {
30 31
     if ($PLATFORM eq 'windows') {