develooper Front page | perl.perl5.porters | Postings from November 2000

[PATCH] Re: [ID 20001107.014] Not OK: perl v5.7.0 +DEVEL7594on dos-djgpp djgpp

Thread Previous | Thread Next
From:
Peter J. Farley III
Date:
November 8, 2000 17:56
Subject:
[PATCH] Re: [ID 20001107.014] Not OK: perl v5.7.0 +DEVEL7594on dos-djgpp djgpp
Message ID:
4.3.1.0.20001108204524.00ae6a90@pop5.banet.net
At 10:01 PM 11/7/00 -0600, Jarkko Hietaniemi wrote:
<Snipped>
 >I think I prefer something like this, using the brand new
 >d_fnctl_can_lock:
 >  if ( !$Config{d_flock} &&
 >       !$Config{d_fcntl_can_lock} &&
 >       !$Config{d_lockf} ) {>
 >
 >This should work for dos, too?

Yes, this works fine for dos.  Patch applied, tested ok, pasted and 
attached.  VMS people also need to test to ensure it works for them as 
well.

-----------Begin patch paste--------------------
--- t/pragma/warn/pp_sys.0	Sun Oct 22 14:38:28 2000
+++ t/pragma/warn/pp_sys.	Wed Nov  8 20:32:52 2000
@@ -203,7 +203,9 @@
  # pp_sys.c [pp_flock]
  use Config;
  BEGIN {
-  if ( $^O eq 'VMS' and ! $Config{d_flock}) {
+  if ( !$Config{d_flock} &&
+       !$Config{d_fcntl_can_lock} &&
+       !$Config{d_lockf} ) {
      print <<EOM ;
  SKIPPED
  # flock not present
-----------End patch paste----------------------

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About