v.to.db: fix area perimeter

git-svn-id: https://svn.osgeo.org/grass/grass/branches/releasebranch_7_0@59597 15284696-431f-4ddb-bdfa-cd5b030d7da7

vector/v.to.db/areas.c

@@ -40,7 +40,7 @@ int read_areas(struct Map_info *Map)
 	if ((options.option == O_COMPACT) || (options.option == O_FD) ||
 	    (options.option == O_PERIMETER)) {
 	    Vect_get_area_points(Map, area_num, Ppoints);
-	    perimeter = Vect_line_geodesic_length(Ppoints);
+	    perimeter = Vect_get_area_perimeter(Map, area_num);
 	}
 
 	found = 0;