From: Alexandre Duret-Lutz <adl@gnu.org>
Date: Fri, 23 May 2003 21:53:34 +0000 (+0000)
Subject: * lib/Automake/Location.pm (dump): Output 'INTERNAL' when position
X-Git-Tag: v1.10.2~898
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d5dbe84d16f9cb21f153386ad9693c554feb0be5;p=platform%2Fupstream%2Fautomake.git

* lib/Automake/Location.pm (dump): Output 'INTERNAL' when position
is undefined.
---

diff --git a/ChangeLog b/ChangeLog
index c4a93a9..af9ffdb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-05-23  Alexandre Duret-Lutz  <adl@gnu.org>
 
+	* 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;
 }