Assignment to a single element slice is better written
as a scalar - This generates a compile time warning as it
can lead to odd behaviour see perldiag for details
This corrects some cases which were added in a recent
commit
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
# Index points to the next value
my $restrictionyear = 0;
if (($take <= $#values) && ($take >= 0)){
# Index points to the next value
my $restrictionyear = 0;
if (($take <= $#values) && ($take >= 0)){
- $restrictionyear += @values[$take];
+ $restrictionyear += $values[$take];
}
if ($restrictionyear > 0) {
if ( $borrower->{'dateofbirth'} ) {
my @alloweddate = split /-/,$borrower->{'dateofbirth'} ;
}
if ($restrictionyear > 0) {
if ( $borrower->{'dateofbirth'} ) {
my @alloweddate = split /-/,$borrower->{'dateofbirth'} ;
- @alloweddate[0] += $restrictionyear;
+ $alloweddate[0] += $restrictionyear;
#Prevent runime eror on leap year (invalid date)
#Prevent runime eror on leap year (invalid date)
- if ((@alloweddate[1] == 2) && (@alloweddate[2] == 29)) {
- @alloweddate[2] = 28;
+ if (($alloweddate[1] == 2) && ($alloweddate[2] == 29)) {
+ $alloweddate[2] = 28;
}
if ( Date_to_Days(Today) < Date_to_Days(@alloweddate) -1 ) {
}
if ( Date_to_Days(Today) < Date_to_Days(@alloweddate) -1 ) {