diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-05 23:12:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-05 23:12:19 +0000 |
| commit | 4d76e4b4b06e50f8d4823ad3dd37d8c202e442e0 (patch) | |
| tree | 42e80c4d0b532e8dabd0caf3a49266b92693d85d /NetWare/t | |
| parent | b15a22ab7111cb08cbc38a0a816e11f3fc34a386 (diff) | |
| download | perl-4d76e4b4b06e50f8d4823ad3dd37d8c202e442e0.tar.gz | |
NetWare update from Ananth Kesari.
p4raw-id: //depot/perl@14567
Diffstat (limited to 'NetWare/t')
| -rw-r--r-- | NetWare/t/NWModify.pl | 2 | ||||
| -rw-r--r-- | NetWare/t/NWScripts.pl | 6 |
2 files changed, 0 insertions, 8 deletions
diff --git a/NetWare/t/NWModify.pl b/NetWare/t/NWModify.pl index 2b1d07beb8..4e9817448d 100644 --- a/NetWare/t/NWModify.pl +++ b/NetWare/t/NWModify.pl @@ -88,7 +88,6 @@ sub Process_File open(FH, "+< $FileToProcess") or die "Unable to open the file, $FileToProcess for reading and writing.\n"; @ARRAY = <FH>; # Get the contents of the file into an array. - flock(FH, LOCK_EX); # Lock the file for safety purposes. foreach $Line(@ARRAY) # Get each line of the file. { if($Line =~ m/\@INC = /) @@ -112,7 +111,6 @@ sub Process_File seek(FH, 0, 0); # Seek to the beginning. print FH @ARRAY; # Write the changed array into the file. - flock(FH, LOCK_UN); # unlock the file. close FH; # close the file. $FilesRead++; # One more file read. diff --git a/NetWare/t/NWScripts.pl b/NetWare/t/NWScripts.pl index 8ab39296ab..cb2938ebde 100644 --- a/NetWare/t/NWScripts.pl +++ b/NetWare/t/NWScripts.pl @@ -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"; |