Re: Possible precedence problem on bitwise ^ operator

[p5sagit/p5-mst-13.2.git] / NetWare / t / NWScripts.pl

diff --git a/NetWare/t/NWScripts.pl b/NetWare/t/NWScripts.pl
index dc43dde..a594dac 100644 (file)
--- a/NetWare/t/NWScripts.pl
+++ b/NetWare/t/NWScripts.pl
@@ -11,7 +11,7 @@ $DirName = "t";
 
 # These scripts have problems (either abend or hang) as of now (11 May 2001).
 # So, they are commented out in the corresponding auto scripts, io.pl and lib.pl
-@ScriptsNotUsed = ("t/io/argv.t", "t/io/openpid.t", "t/lib/filehandle.t");
+@ScriptsNotUsed = ("t/io/openpid.t", "t/lib/filehandle.t", "t/lib/memoize/t/expire_module_t.t", "t/lib/NEXT/t/next.t", "t/lib/Math/BigInt/t/require.t", "t/ext/B/t/debug.t", "t/lib/IPC/Open3.t", "t/ext/B/t/showlex.t", "t/op/subst_wamp.t", "t/uni/upper.t", "t/lib/Net/t/ftp.t", "t/op/sort.t", "t/ext/POSIX/t/posix.t", "t/lib/CPAN/t/loadme.t", "t/lib/CPAN/t/vcmp.t");
 
 opendir(DIR, $DirName);
 @Dirs = readdir(DIR);
@@ -41,7 +41,6 @@ print "Generating  t/nwauto.pl ...\n\n\n";
 
 open(FHWA, "> t/nwauto.pl") or die "Unable to open the file,  t/nwauto.pl  for writing.\n";
 seek(FHWA, 0, 0);      # seek to the beginning of the file.
-flock(FHWA, LOCK_EX);          # Lock the file for safety purposes.
 
 $version = sprintf("%vd",$^V);
 print FHWA "\n\nprint \"Automated Unit Testing of Perl$version for NetWare\\n\\n\\n\"\;\n\n\n";
@@ -70,7 +69,6 @@ foreach $FileName(@DirNames)
                # Write into the intermediary auto script.
                open(FHW, ">> $IntAutoScript") or die "Unable to open the file,  $IntAutoScript  for appending.\n";
                seek(FHW, 0, 2);        # seek to the end of the file.
-               flock(FHW, LOCK_EX);            # Lock the file for safety purposes.
 
                $pos = tell(FHW);
                if($pos <= 0)
@@ -97,7 +95,6 @@ foreach $FileName(@DirNames)
                        $index++;
                }
 
-               flock(FHW, LOCK_UN);    # unlock the file.
                close FHW;                      # close the file.
 
                if($index <= 0)
@@ -169,12 +166,10 @@ foreach $DirItem(@Dirs)
                        # Write into the intermediary auto script.
                        open(FHW, ">> $IntAutoScript") or die "Unable to open the file,  $IntAutoScript  for appending.\n";
                        seek(FHW, 0, 2);        # seek to the end of the file.
-                       flock(FHW, LOCK_EX);            # Lock the file for safety purposes.
 
                        # Write into the intermediary auto script.
                        print FHW "\nprint \"Testing of  $DirItem  folder done!\\n\\n\"\;\n\n";
 
-                       flock(FHW, LOCK_UN);    # unlock the file.
                        close FHW;                      # close the file.
                }
        }
@@ -184,7 +179,6 @@ foreach $DirItem(@Dirs)
 # Write into  nwauto.pl
 print FHWA "\nprint \"Automated Unit Testing of Perl$version for NetWare done!\\n\\n\"\;\n\n";
 
-flock(FHWA, LOCK_UN);  # unlock the file.
 close FHWA;                    # close the file.
 
 print "\n\nGeneration of  t/nwauto.pl  Done!\n\n";