From 0c2d470f8a8f4a8c6919d5b2971a581343c0f849 Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Fri, 25 Nov 2011 14:04:04 -0800 Subject: [PATCH] Detabify For #149 --- lib/perl5i/2/ARRAY.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/perl5i/2/ARRAY.pm b/lib/perl5i/2/ARRAY.pm index 5d78143..f3d3bcf 100644 --- a/lib/perl5i/2/ARRAY.pm +++ b/lib/perl5i/2/ARRAY.pm @@ -57,11 +57,11 @@ method grep($filter) { method popn($times) { Carp::croak("popn() takes a single argument, the number of elements to pop") - unless defined $times; + unless defined $times; Carp::croak("popn() takes a numerical argument") - unless $times->is_integer; + unless $times->is_integer; Carp::croak("popn() does not take negative arguments") - if $times < 0; + if $times < 0; # splice() will choke if you walk off the array, so rein it in $times = scalar(@$self) if ($times > scalar(@$self)); @@ -74,7 +74,7 @@ method shiftn($times) { Carp::croak("shiftn() takes a single argument, the number of elements to pop") unless defined $times; Carp::croak("shiftn() takes a numerical argument") - unless $times->is_integer; + unless $times->is_integer; Carp::croak("shiftn() does not take negative arguments") if $times < 0;