#!/usr/bin/perl
# -*- perl -*-
-# Copyright (C) 2001
-# Free Software Foundation
+# Copyright (C) 2001-2019 Free Software Foundation, Inc.
#
# This file is part of the libiberty library.
# Libiberty is free software; you can redistribute it and/or
if (/^\@def[a-z]*[a-wyz] /) {
- ($name) = m/[^\(]* ([^\( \t\r\n]+) *\(/;
- $name =~ s/[ ]*$//;
+ ($name) = m/[^\(]* ([^\( \t\r\n\@]+) *(\(|\@?$)/;
+ $name =~ s/[ ]*\@?$//;
$key = $name;
$key =~ tr/A-Z/a-z/;
$key =~ s/[^a-z0-9]+/ /g;