Oh well. Need both stats under different circumstances, as found out
by Peter Stromberg.
This commit is contained in:
parent
e80fc7eb06
commit
7b5e441497
@ -1,6 +1,6 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
||||||
|
|
||||||
# $OpenBSD: make-plist,v 1.10 2001/05/05 21:24:27 espie Exp $
|
# $OpenBSD: make-plist,v 1.11 2001/05/07 15:25:44 espie Exp $
|
||||||
|
|
||||||
# Copyright (c) 1999 Marc Espie
|
# Copyright (c) 1999 Marc Espie
|
||||||
#
|
#
|
||||||
@ -51,8 +51,8 @@ select PLIST;
|
|||||||
|
|
||||||
print "\@comment \$OpenBSD\$\n";
|
print "\@comment \$OpenBSD\$\n";
|
||||||
|
|
||||||
# compare all files against this date
|
# compare all files against those dates
|
||||||
my $date = (stat $ENV{INSTALL_PRE_COOKIE})[9];
|
my @date = (stat $ENV{INSTALL_PRE_COOKIE})[9, 10];
|
||||||
|
|
||||||
# prefix to remove from everything
|
# prefix to remove from everything
|
||||||
my $base = $ENV{PREFIX};
|
my $base = $ENV{PREFIX};
|
||||||
@ -113,8 +113,8 @@ sub add_info {
|
|||||||
|
|
||||||
find(
|
find(
|
||||||
sub {
|
sub {
|
||||||
my $cdate = (lstat $_)[9];
|
my @cdate = (lstat $_)[9, 10];
|
||||||
if ($cdate >= $date) {
|
if ($cdate[0] >= $date[0] || $cdate[1] >= $date[1]) {
|
||||||
$has_stuff{$File::Find::dir} = 1;
|
$has_stuff{$File::Find::dir} = 1;
|
||||||
if (-d _) {
|
if (-d _) {
|
||||||
$newdir{$File::Find::name} = 1;
|
$newdir{$File::Find::name} = 1;
|
||||||
|
Loading…
Reference in New Issue
Block a user