From: Gurusamy Sarathy Date: Wed, 5 Jan 2000 12:49:40 +0000 (+0000) Subject: various nits identified by warnings unmasked by recent changes X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c74f1bd35770c573375e31cfb53d48d3ef6b920;p=p5sagit%2Fp5-mst-13.2.git 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 --- 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 --- 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 --- 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