lib/Automake/General.pm

   1 # Copyright (C) 2001-2018 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2, or (at your option)
   6 # any later version.
   7
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
  15
  16 package Automake::General;
  17
  18 use 5.006;
  19 use strict;
  20 use Exporter;
  21 use File::Basename;
  22
  23 use vars qw (@ISA @EXPORT);
  24
  25 @ISA = qw (Exporter);
  26 @EXPORT = qw (&uniq $me);
  27
  28 # Variable we share with the main package.  Be sure to have a single
  29 # copy of them: using 'my' together with multiple inclusion of this
  30 # package would introduce several copies.
  31 use vars qw ($me);
  32 $me = basename ($0);
  33
  34 # END
  35 # ---
  36 # Exit nonzero whenever closing STDOUT fails.
  37 sub END
  38 {
  39   # This is required if the code might send any output to stdout
  40   # E.g., even --version or --help.  So it's best to do it unconditionally.
  41   if (! close STDOUT)
  42     {
  43       print STDERR "$me: closing standard output: $!\n";
  44       $? = 74; # EX_IOERR
  45       return;
  46     }
  47 }
  48
  49
  50 # @RES
  51 # uniq (@LIST)
  52 # ------------
  53 # Return LIST with no duplicates.
  54 sub uniq (@)
  55 {
  56    my @res = ();
  57    my %seen = ();
  58    foreach my $item (@_)
  59      {
  60        if (! exists $seen{$item})
  61          {
  62            $seen{$item} = 1;
  63            push (@res, $item);
  64          }
  65      }
  66    return wantarray ? @res : "@res";
  67 }
  68
  69
  70 1; # for require