RFE: In lockfile, include UID, and add FQDN to hostname

.gitignore

@@ -0,0 +1,17 @@
+blib/
+.build/
+_build/
+cover_db/
+inc/
+Build
+Build.bat
+.last_cover_stats
+Makefile
+Makefile.old
+MANIFEST.bak
+META.yml
+MYMETA.yml
+MYMETA.json
+nytprof.out
+pm_to_blib
+*.tar.gz

.travis.yml

@@ -0,0 +1,24 @@
+branches:
+  except:
+    - /^issue\d+/
+    - /^gh\d+/
+language: perl
+env:
+  global:
+    - PERL_USE_UNSAFE_INC=0
+    - AUTHOR_TESTING=1
+    - AUTOMATED_TESTING=1
+    - RELEASE_TESTING=1
+perl:
+  - "5.28"
+  - "5.26"
+  - "5.24"
+  - "5.22"
+  - "5.20"
+  - "5.18"
+  - "5.16"
+  - "5.14"
+  - "5.12"
+  - "5.10"
+script:
+  - perl Makefile.PL && make test

Changes

@@ -1,5 +1,65 @@
 Revision history for Perl extension File::NFSLock.
 
+1.29  Nov 01 14:00 2018
+        - Avoid deprecated PERL_USE_UNSAFE_INC
+
+1.28  Nov 01 10:00 2018
+        - Patch RT#130467 and RT#120088:
+        - Handle "." not in @INC
+
+1.27  Nov 12 13:00 2014
+        - RT#99431:
+        - More Win32 compatibility fixes in test suite.
+        - RT#48102:
+        - Add tests for new ->fork() method.
+
+1.26  Nov 07 16:00 2014
+        - Add File::NFSLock->fork() convenience method.
+        - RT#48102 Report by Todd Foggoa:
+        - More gracefully handle fork() to behave like
+          Linux by sharing the lock between both parent
+          and child processes when ->newpid() is called.
+
+1.25  Jul 30 14:00 2014
+        - RT#99431 Report by Nathan Glenn:
+        - Fixed tempfile syntax by Christian Walde.
+        - Fixed Win32 Shared Lock by Christian Walde.
+        - RT#42122 Report by converter at cpan.org:
+        - Add tests to help debug Taint issues
+
+1.24  Jul 30 14:00 2014
+        - Fixed a race condition in crash recovery.
+        - RT#88520 Thanks David Steinbrunner: Fix typos
+
+1.23  Jul 28 11:00 2014
+        - More gracefully handle arbitrary hostnames.
+        - Patch RT#84658 by Yann Rouillard:
+        - Avoid gleefully double removing valid lockfile
+          when ->unlock is explicitly called.
+        - Patch RT#61258 by cpan at danonline.net:
+        - Fixed $graceful_sig to exit with non-zero to
+          more closely match stock signal handlers.
+
+1.22  Jul 26 09:00 2014
+        - Reported by Kent Fredric and Karen Etheridge:
+        - Patch RT#86125 and RT#91546
+        - Use File::Temp for concurrency compatibility
+          in test suite, such as HARNESS_OPTIONS=j20
+
+1.21  Jul 13 17:00 2011
+        - Various patches by Chorny at cpan dot org
+          and fREW frioux at gmail dot com:
+        - Windows NTFS compatibility fixes.
+        - Allow PID to be negative.
+        - Lexically scope temp file handles to
+          reduce changes of memory leak and
+          avoid unintentional glob clobberation.
+        - Security fix: 3 arg open().
+        - Repair test suites logics.
+        - Fixed infinite freezing on Strawberry Perl v5.10.0.
+        - Fixed infinite freezing on ActiveState Perl v5.12.1.
+        - Sorry for the past 8 years of suffering.
+
 1.20  May 13 12:00 2003
         - Avoid double reverting signal handlers when
           unlock() is explicitly called instead of

File-NFSLock.spec

@@ -1,7 +1,7 @@
 # Automatically generated by File-NFSLock.spec.PL
 %define class File
 %define subclass NFSLock
-%define version 1.20
+%define version 1.29
 %define release 1
 %define defperlver 5.6.1
 

File-NFSLock.spec.PL

@@ -11,29 +11,31 @@ my $name;
 my $version;
 $INC{"ExtUtils/MakeMaker.pm"} = 1;
 sub WriteMakefile {
-  my %props = @_;
-  $name = $props{NAME} || die "Makefile.PL: Missing NAME";
-  if ($version = $props{VERSION}) {
-    # done
-  } elsif (my $version_from = $props{VERSION_FROM}) {
-    $@ = "";
-    $version = eval qq{
-      do "$version_from";
-      \$$name\::VERSION || die "$version_from: Missing VERSION";
-    };
-    die $@ if $@;
-    if (!defined $version) {
-      die "$version_from: Missing VERSION";
+    my %props = @_;
+    $name = $props{NAME} || die "Makefile.PL: Missing NAME";
+    if ($version = $props{VERSION}) {
+        # done
+    }
+    elsif (my $version_from = $props{VERSION_FROM}) {
+        $@ = "";
+        $version = eval qq{
+            do "./$version_from";
+            \$$name\::VERSION || die "$version_from: Missing VERSION";
+        };
+        die $@ if $@;
+        if (!defined $version) {
+            die "$version_from: Missing VERSION";
+        }
+    }
+    else {
+        die "Makefile.PL: Could not determine version!";
     }
-  } else {
-    die "Makefile.PL: Could not determine version!";
-  }
 }
-do "Makefile.PL";
+do "./Makefile.PL";
 if ($name) {
-  $name =~ s/::/-/g;
+    $name =~ s/::/-/g;
 } else {
-  die "Makefile.PL: Missing WriteMakefile";
+    die "Makefile.PL: Missing WriteMakefile";
 }
 
 $version || die "No version!";

MANIFEST

@@ -9,12 +9,21 @@ examples/lock_test              Script used to test on live system
 t/100_load.t
 t/110_compare.t
 t/120_single.t
+t/130_taint.t
 t/200_bl_ex.t
 t/210_nb_ex.t
 t/220_ex_scope.t
 t/230_double.t
-t/240_fork.t
+t/240_fork_ex.t
+t/241_fork_ex.t
+t/242_fork_ex.t
+t/243_fork_ex.t
+t/250_fork_sh.t
+t/251_fork_sh.t
+t/252_fork_sh.t
+t/253_fork_sh.t
 t/300_bl_sh.t
 t/400_kill.t
 t/410_die.t
 t/420_crash.t
+t/430_taint.t

MANIFEST.SKIP

@@ -0,0 +1,17 @@
+\.DS_Store
+\bdiffs?\b
+^MANIFEST\.
+^MYMETA
+^Makefile$
+~$
+\.old$
+\.bak$
+\.orig$
+\.gz$
+^\.git
+^benchmark/
+^cover_db/
+^blib/
+^pm_to_blib$
+^\.travis.yml$
+^File-NFSLock-\d\.\d+/

Makefile.PL

@@ -26,22 +26,22 @@ WriteMakefile
 package MY;
 
 sub processPL {
-  my $self = shift;
-  my $block = $self->SUPER::processPL(@_);
-  # "Version:" in spec needs to match
-  # "$VERSION" from VERSION_FROM
-  $block =~ s%(spec.PL\s*)$%$1 \$\(VERSION_FROM\)%m;
-  $block;
+    my $self = shift;
+    my $block = $self->SUPER::processPL(@_);
+    # "Version:" in spec needs to match
+    # "$VERSION" from VERSION_FROM
+    $block =~ s%(spec.PL\s*)$%$1 \$\(VERSION_FROM\)%m;
+    $block;
 }
 
 sub libscan {
-  my $self = shift;
-  my $path = shift;
-  ($path =~ / \bCVS\b | \~$ /x) ? undef : $path;
+    my $self = shift;
+    my $path = shift;
+    ($path =~ / \bCVS\b | \~$ /x) ? undef : $path;
 }
 
 sub postamble {
-  return qq^
+    return qq^
 
 pm_to_blib: README