Add test for polyline lines

This commit is contained in:
Alessandro Ranellucci 2013-07-15 23:23:35 +02:00
parent 439255ca46
commit 77c479c127
3 changed files with 34 additions and 19 deletions

View file

@ -110,19 +110,6 @@ Line::to_SV_pureperl() {
return newRV_noinc((SV*)av);
}
SV*
lines2perl(pTHX_ Lines& lines)
{
AV* av = newAV();
av_extend(av, lines.size()-1);
int i = 0;
for (Lines::iterator it = lines.begin(); it != lines.end(); ++it) {
SV* sv = (*it).to_SV_ref();
av_store(av, i++, sv);
}
return (SV*)newRV_noinc((SV*)av);
}
}
#endif