kc3-lang/automake/t/ax/deltree.pl

Branch - branch -masterv1.18- tag -v1.18.1v1.17.92v1.17.90v1.17v1.16iv1.16.92v1.16.90v1.16.5v1.16.4v1.16.3v1.16.2v1.16.1v1.16v1.15.1v1.15v1.14.1v1.14v1.13bv1.13.4v1.13.3v1.13.2bv1.13.2v1.13.1dv1.13.1bv1.13.1v1.13v1.12bv1.12.6v1.12.5v1.12.4v1.12.3v1.12.2v1.12.1v1.12.0bv1.12v1.11dv1.11bv1.11v1.10buser-dep-gen-branchpointpre-ian-conditionalspre-depend-changeng-0.5amerging-into-user-dep-genlast-merge-into-user-dep-gen-branchhandle-languagesbranchpoint-real-1-5branchpoint-1-9branchpoint-1-8branchpoint-1-7branchpoint-1-6branchpoint-1-5branchpoint-1-10Release-1-9bRelease-1-9Release-1-8dRelease-1-8bRelease-1-8Release-1-7hRelease-1-7fRelease-1-7dRelease-1-7bRelease-1-7-3bRelease-1-7-2bRelease-1-7Release-1-6fRelease-1-6dRelease-1-6bRelease-1-6-1bRelease-1-6Release-1-5dRelease-1-5bRelease-1-4jRelease-1-4hRelease-1-4fRelease-1-4dRelease-1-4bRelease-1-4Release-1-3dRelease-1-3bRelease-1-3Release-1-2hRelease-1-2gRelease-1-2eRelease-1-2dRelease-1-2cRelease-1-2bRelease-1-2Release-1-1pRelease-1-1oRelease-1-1mRelease-1-1lRelease-1-1kRelease-1-1iRelease-1-1hRelease-1-1gRelease-1-1fRelease-1-1eRelease-1-1dRelease-1-1cRelease-1-1bRelease-1-1aRelease-1-10Release-1-0Release-0-33Release-0-32Release-0-31Release-0-30Release-0-29Release-0-28Release-0-27Release-0-26Release-0-25

• Show log

  Commit

• Hash : fc1c3f65
  Author :
  Date : 2025-01-31T09:20:47
  

  automake: just use warnings, with no => FATAL.
  
  Per Perl recommendation:
    https://perldoc.perl.org/warnings#Fatal-Warnings
  Suggested by Collin Funk:
    https://lists.gnu.org/archive/html/automake/2025-01/msg00003.html
  And in the Perl discussion:
    https://github.com/Perl/perl5/issues/22954#issuecomment-2622966302
  
  * bin/aclocal.in: just use warnings, not making them fatal.
  * bin/automake.in:
  * contrib/tap-driver.pl:
  * gen-testsuite-part:
  * lib/Automake/ChannelDefs.pm:
  * lib/Automake/Channels.pm:
  * lib/Automake/Condition.pm:
  * lib/Automake/Config.in:
  * lib/Automake/Configure_ac.pm:
  * lib/Automake/DisjConditions.pm:
  * lib/Automake/FileUtils.pm:
  * lib/Automake/General.pm:
  * lib/Automake/Getopt.pm:
  * lib/Automake/Item.pm:
  * lib/Automake/ItemDef.pm:
  * lib/Automake/Language.pm:
  * lib/Automake/Location.pm:
  * lib/Automake/Options.pm:
  * lib/Automake/Rule.pm:
  * lib/Automake/RuleDef.pm:
  * lib/Automake/VarDef.pm:
  * lib/Automake/Variable.pm:
  * lib/Automake/Version.pm:
  * lib/Automake/Wrap.pm:
  * lib/Automake/XFile.pm:
  * t/ax/deltree.pl:
  * t/ax/extract-testsuite-summary.pl:
  * t/check-fd-redirect.sh:
  * t/tap-signal.tap:
  * t/tests-environment-fd-redirect.sh:
  * t/testsuite-summary-count-many.sh:
  

Download

• t/ax/deltree.pl

• #!/usr/bin/env perl
  # deltree: recursively removes file and directory,
  # trying to handle permissions and other complications.
  
  # Copyright (C) 2013-2025 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
  # the Free Software Foundation; either version 2, or (at your option)
  # any later version.
  
  # This program is distributed in the hope that it will be useful,
  # but WITHOUT ANY WARRANTY; without even the implied warranty of
  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  # GNU General Public License for more details.
  
  # You should have received a copy of the GNU General Public License
  # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  
  use strict; use warnings;
  use File::Path qw/rmtree/;
  
  my $exit_status = 0;
  local $SIG{__WARN__} = sub { warn "@_"; $exit_status = 1; };
  
  foreach my $path (@ARGV) {
    local $@ = undef;
    rmtree ($path);
  }
  
  exit $exit_status;
  
  # vim: ft=perl ts=4 sw=4 et
  

Download