From 7238dadea69799f6663f41f03dc815195989121b Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sun, 30 Sep 2012 02:36:09 +0200
Subject: [PATCH] [perl5db] Remove leading ampersands in sub calls.

---
 lib/perl5db.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 4df4de8..15ee326 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -4640,14 +4640,14 @@ sub cmd_B {
 
     # If it's * we're deleting all the breakpoints.
     if ( $line eq '*' ) {
-        if (not eval { &delete_breakpoint(); 1 }) {
+        if (not eval { delete_breakpoint(); 1 }) {
             print {$OUT} $@;
         }
     }
 
     # If there is a line spec, delete the breakpoint on that line.
     elsif ( $line =~ /\A(\S.*)/ ) {
-        if (not eval { &delete_breakpoint( $line || $dbline ); 1 }) {
+        if (not eval { delete_breakpoint( $line || $dbline ); 1 }) {
             local $\ = '';
             print {$OUT} $@;
         }
-- 
2.7.4