From bc996ef841c04e6ab14cb4f27f694b069cf619a6 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Mon, 1 Oct 2012 13:57:51 +0200
Subject: [PATCH] [perl5db] Refactored argument passing.

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 7c8ae48..ded3677 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -4536,10 +4536,8 @@ specified) to the specified line. Dies if it can't.
 =cut
 
 sub break_on_line {
-    my ( $i, $cond ) = @_;
-
-    # Always true if no condition supplied.
-    $cond = 1 unless @_ >= 2;
+    my $i = shift;
+    my $cond = @_ ? shift(@_) : 1;
 
     my $inii  = $i;
     my $after = '';
-- 
2.7.4