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

is undefined.

diff --git a/ChangeLog b/ChangeLog
index c4a93a9..af9ffdb 100644 (file)
--- 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 (file)
--- 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;
 }