in reply to Setting timelocal back by days

Maybe it just works if your correct 
if ( $time < $time ){
print "$_\n";
}

[download]
to compare $time to $mtime.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^2: Setting timelocal back by days
by mnlight (Scribe) on Sep 17, 2007 at 15:48 UTC
    typo 
    if ( $time < $time ){
print "$_\n";
}

    [download]
    Correct 
    if ( $mtime < $time ){
print "$_\n";
}

    [download]
    However it still unlinks files that were created after the Save.Days time. Any file newer then 5 days ago should not get unlinked but it does anyway. The $time is not getting set properly.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom