[SCM] Debian packaging of libconfig-model-perl branch, master, updated. debian/2.021-2-5-g58578e0

[Dominique Dumont]

The following commit has been merged in the master branch:
commit fca7d118549f3671e0bab4dd38d29988f688bd76
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Jul 13 14:12:23 2012 +0200

    applied patch to fix undef warning

diff --git a/debian/patches/fix-unsaved-changes b/debian/patches/fix-unsaved-changes
index b574f94..b2a8107 100644
--- a/debian/patches/fix-unsaved-changes
+++ b/debian/patches/fix-unsaved-changes
@@ -29,17 +29,32 @@
  
          # data_mode is preset or layered or user. Actually only user
          # mode makes sense here
-@@ -343,6 +345,9 @@
+@@ -333,6 +335,7 @@
+ 
+     my $list = $self->{list} ;
+ 
++    my $msg ;
+     if (defined $ref_key) {
+         for (my $idx = 0; $idx <= $#$list; $idx ++ ) {
+             if ($list->[$idx] eq $ref_key) {
+@@ -340,9 +343,16 @@
+                 last;
+             }
+         }
++
++        $msg = "moved key $key_to_move after $ref_key" ;
      } else {
          unshift @$list , $key_to_move ;
++        $msg = "moved key $key_to_move at beginning" ;
      }
 +
-+    $self->notify_change(note => "moved key $key_to_move after $ref_key") ;
++
++    $self->notify_change( note => $msg ) ;
 +
  }
  
  
-@@ -363,9 +368,13 @@
+@@ -363,9 +373,13 @@
          if ($list->[$idx] eq $key) {
              $list->[$idx]   = $list->[$idx-1];
              $list->[$idx-1] = $key ;
@@ -53,7 +68,7 @@
  }
  
  
-@@ -386,9 +395,13 @@
+@@ -386,9 +400,13 @@
          if ($list->[$idx] eq $key) {
              $list->[$idx]   = $list->[$idx+1];
              $list->[$idx+1] = $key ;

-- 
Debian packaging of libconfig-model-perl