From 3d6dbb6d48d10579984fb7fda2e79d3d73e10f70 Mon Sep 17 00:00:00 2001
From: Andrey Ponomarenko <andrewponomarenko@yandex.ru>
Date: Wed, 3 Jul 2019 16:51:32 +0300
Subject: [PATCH] Support for new elfutils (Fedora 30)

---
 abi-dumper.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

--- a/abi-dumper.pl
+++ b/abi-dumper.pl
@@ -3,7 +3,7 @@
 # ABI Dumper 1.1
 # Dump ABI of an ELF object containing DWARF debug info
 #
-# Copyright (C) 2013-2017 Andrey Ponomarenko's ABI Laboratory
+# Copyright (C) 2013-2019 Andrey Ponomarenko's ABI Laboratory
 #
 # Written by Andrey Ponomarenko
 #
@@ -92,7 +92,7 @@ my %ERROR_CODE = (
 
 my $ShortUsage = "ABI Dumper $TOOL_VERSION
 Dump ABI of an ELF object containing DWARF debug info
-Copyright (C) 2017 Andrey Ponomarenko's ABI Laboratory
+Copyright (C) 2019 Andrey Ponomarenko's ABI Laboratory
 License: GNU LGPL or GNU GPL
 
 Usage: $CmdName [options] [object]
@@ -4276,6 +4276,11 @@ sub setSource(@)
     
     if(defined $File)
     {
+        if(index($File, "(")!=-1)
+        { # Support for new elfutils (Fedora 30)
+            $File=~s/.+ \((\d+)\)/$1/;
+        }
+        
         my $Name = undef;
         
         if($ID>=0) {
@@ -6504,7 +6509,7 @@ sub scenario()
     if($ShowVersion)
     {
         printMsg("INFO", "ABI Dumper $TOOL_VERSION");
-        printMsg("INFO", "Copyright (C) 2017 Andrey Ponomarenko's ABI Laboratory");
+        printMsg("INFO", "Copyright (C) 2019 Andrey Ponomarenko's ABI Laboratory");
         printMsg("INFO", "License: LGPL or GPL <http://www.gnu.org/licenses/>");
         printMsg("INFO", "This program is free software: you can redistribute it and/or modify it.\n");
         printMsg("INFO", "Written by Andrey Ponomarenko.");