various nits identified by warnings unmasked by recent changes

p4raw-id: //depot/perl@4758

diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL
index dcff65a..cb9696b 100644 (file)
--- a/ext/B/Makefile.PL
+++ b/ext/B/Makefile.PL
@@ -26,7 +26,7 @@ WriteMakefile(
 package MY;
 
 sub post_constants {
-    "\nLIBS = $Config{libs}\n"
+    "\nLIBS = $Config::Config{libs}\n"
 }    
 
 sub postamble {

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 3837710..d6b1375 100644 (file)
--- a/lib/ExtUtils/Install.pm
+++ b/lib/ExtUtils/Install.pm
@@ -191,7 +191,6 @@ sub uninstall {
        forceunlink($_) unless $nonono;
     }
     print "unlink $fil\n" if $verbose;
-    close P;
     forceunlink($fil) unless $nonono;
 }
 

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index c1bc4c5..8928df1 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -4390,9 +4390,9 @@ meaning of the fields:
   5 gid      numeric group ID of file's owner
   6 rdev     the device identifier (special files only)
   7 size     total size of file, in bytes
-  8 atime    last access time since the epoch
-  9 mtime    last modify time since the epoch
- 10 ctime    inode change time (NOT creation time!) since the epoch
+  8 atime    last access time in seconds since the epoch
+  9 mtime    last modify time in seconds since the epoch
+ 10 ctime    inode change time (NOT creation time!) in seconds since the epoch
  11 blksize  preferred block size for file system I/O
  12 blocks   actual number of blocks allocated