Select Code to Download

[john@primary duplicates] 21:13 $ perl -c fixip.pl 
Use of /c modifier is meaningless in s/// at fixip.pl line 21.
Substitution pattern not terminated at fixip.pl line 19.

15 $I->execute;
 16 
...
SET currentnip = $cnip,oldnip = $onip 
WHERE service = $$i{r.service}");
 24 }