Help for this page

Select Code to Download


  1. or download this
    Your vendor has not defined Fcntl macro O_NOINHERIT, used at /usr/shar
    +e/perl5/File/Temp.pm line 247.
    Your vendor has not defined Fcntl macro O_EXLOCK, used at /usr/share/p
    +erl5/File/Temp.pm line 256.    
    Your vendor has not defined Fcntl macro O_TEMPORARY, used at /usr/shar
    +e/perl5/File/Temp.pm line 277.    
    Your vendor has not defined Fcntl macro O_EXLOCK, used at /usr/share/p
    +erl5/File/Temp.pm line 255.
    
  2. or download this
     
    my $OPENFLAGS = O_CREAT | O_EXCL | O_RDWR;
    my $LOCKFLAG;
    ...
        &Fcntl::O_EXLOCK();
      };
    }
    
  3. or download this
     $OPENFLAGS |= $bit if eval {
          # Make sure that redefined die handlers do not cause problems
          # e.g. CGI::Carp
    ...
          $bit = &$func();
          1;
        };