[perl5db] Remove leading ampersands in sub calls.

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 4df4de8..15ee326 100644 (file)
--- 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} $@;
         }