diff -up Devel-LeakGuard-Object-0.06/t/guard.t.orig Devel-LeakGuard-Object-0.06/t/guard.t
--- Devel-LeakGuard-Object-0.06/t/guard.t.orig	2009-06-24 09:37:57.000000000 -0600
+++ Devel-LeakGuard-Object-0.06/t/guard.t	2012-06-15 06:18:16.000000000 -0600
@@ -62,7 +62,7 @@ package main;
     my $foo1 = Foo->new( '3foo1' );
     $foo1->{me} = $foo1;
   };
-  s/line \d+/line #/g for @w;
+  s/line \d+\.?/line #/g for @w;
   eq_or_diff [@w],
    [   "Object leaks found:\n"
      . "  Class Before  After  Delta\n"
@@ -89,7 +89,7 @@ package main;
     $foo1->{me} = $foo1;
   }
   on_leak => 'warn';
-  s/line \d+/line #/g for @w;
+  s/line \d+\.?/line #/g for @w;
   eq_or_diff [@w],
    [   "Object leaks found:\n"
      . "  Class Before  After  Delta\n"
@@ -107,7 +107,7 @@ package main;
     }
     on_leak => 'die';
   };
-  s/line \d+/line #/g for @w;
+  s/line \d+\.?/line #/g for @w;
   eq_or_diff [@w],
    [   "Object leaks found:\n"
      . "  Class Before  After  Delta\n"