duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

VIN: remove "Useless use of greediness modifier" 

Perl 5.20 generates a warning on this which cascades into a failure in
our environment.
master
Matt Miller 2014-08-19 11:01:08 -04:00
parent 6f826aacc3
commit 2631dcdd45
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/DDG/Goodie/VIN.pm
View File

@ -98,7 +98,7 @@ handle query_nowhitespace_nodash => sub {
# No exclusive trigger, do checksum.
# Since the vin numbers are just numbers,
# we are more strict in regex (e.g. than UPS).
} elsif($query =~ /^(?:$tracking_qr|$vin_qr|)*([A-Z\d]{17}?)(?:$tracking_qr|$vin_qr|)*$/io || $query =~ /^(?:$tracking_qr|$vin_qr|)*([A-Z\d]{17})(?:$tracking_qr|$vin_qr|)*$/io) {
} elsif($query =~ /^(?:$tracking_qr|$vin_qr|)*([A-Z\d]{17})(?:$tracking_qr|$vin_qr|)*$/io || $query =~ /^(?:$tracking_qr|$vin_qr|)*([A-Z\d]{17})(?:$tracking_qr|$vin_qr|)*$/io) {
$vin_number = uc $1;
my $checksum = 0;
@ -142,4 +142,4 @@ handle query_nowhitespace_nodash => sub {
return;
};
1;
1;