mirror/autoconf
2
0
Fork 0
mirror of git://git.sv.gnu.org/autoconf synced 2025-02-05 11:10:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

* lib/Autom4te/General.pm (END): Use `File::Path::rmtree' to

Browse Source 
simplify the code.
This commit is contained in:
Paul Eggert 2006-08-25 21:21:19 +00:00
parent 351972e6ff
commit 1c6fa73a54
2 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2006-08-25 Noah Misch <address@hidden>
* lib/Autom4te/General.pm (END): Use `File::Path::rmtree' to
simplify the code.
2006-08-25 Paul Eggert <eggert@cs.ucla.edu>
Fix Lex library problem reported to us by Julio Garvia.

23
lib/Autom4te/General.pm
View File

@ -1,5 +1,5 @@
# autoconf -- create `configure' using m4 macros
# Copyright (C) 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
# Copyright (C) 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@ -38,6 +38,7 @@ use Exporter;
use Autom4te::ChannelDefs;
use Autom4te::Channels;
use File::Basename;
use File::Path ();
use File::stat;
use IO::File;
use Carp;
@ -191,24 +192,8 @@ sub END
if (!$debug && defined $tmp && -d $tmp)
{
if (<$tmp/*>)
{
while (<$tmp/*>)
{
if (! unlink $_)
{
print STDERR "$me: cannot empty $tmp ($_): $!\n";
$? = 1;
return;
}
}
}
if (! rmdir $tmp)
{
print STDERR "$me: cannot remove $tmp: $!\n";
$? = 1;
return;
}
local $SIG{__WARN__} = sub { $status = 1; warn $_[0] };
File::Path::rmtree $tmp;
}
# This is required if the code might send any output to stdout