From d5dbe84d16f9cb21f153386ad9693c554feb0be5 Mon Sep 17 00:00:00 2001 From: Alexandre Duret-Lutz Date: Fri, 23 May 2003 21:53:34 +0000 Subject: [PATCH] * lib/Automake/Location.pm (dump): Output 'INTERNAL' when position is undefined. --- ChangeLog | 3 +++ lib/Automake/Location.pm | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index c4a93a9..af9ffdb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2003-05-23 Alexandre Duret-Lutz + * lib/Automake/Location.pm (dump): Output 'INTERNAL' when position + is undefined. + * lib/Automake/DisjConditions.pm (human): Fix infinite loop when $self contains only one Condition. diff --git a/lib/Automake/Location.pm b/lib/Automake/Location.pm index 7a4e38a..161d31a 100644 --- a/lib/Automake/Location.pm +++ b/lib/Automake/Location.pm @@ -1,4 +1,4 @@ -# Copyright (C) 2002 Free Software Foundation, Inc. +# Copyright (C) 2002, 2003 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 @@ -138,10 +138,11 @@ sub clone ($) sub dump ($) { my ($self) = @_; - my $res = $self->get . ":\n"; + my $res = ($self->get || 'INTERNAL') . ":\n"; for my $pair (reverse $self->get_contexts) { - $res .= "$pair->[0]: $pair->[1]\n"; + $res .= $pair->[0] || 'INTERNAL'; + $res .= ": $pair->[1]\n"; } return $res; } -- 2.7.4