On Sun, Nov 02, 2003 at 03:35:30PM -0800, Michael G Schwern wrote: > On Sun, Nov 02, 2003 at 10:12:55PM +0000, Tim Bunce wrote: > > Sounds good. But doesn't MakeMaker have some pre-canned "compare and > > move only if different" logic that might be useful here? > > Good idea. manicopy() uses cp_if_diff(). I can use File::Compare. I've > made sure its untouched if there's no change. > > -$(NOECHO) $(PERLRUN) -MExtUtils::Command -MFile::Compare -e 'compare(@A > RGV) != 0 ? (mv or warn "Cannot move META_new.yml to META.yml\n") : unlink(shift > );' META_new.yml META.yml
No args to mv? No $! in warning message? If length is the issue then perhaps: warn "Can't move @ARGV: $!\n"; Tim.
