Merge pull request #2469 from rouault/fix_CPL_length

CPL_length(): fix unchecked cast to OGRGeometryCollection
r-spatial · Nov 2, 2024 · 5f44d8d · 5f44d8d
2 parents 0d1a48b + fdfbf98
commit 5f44d8d
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/gdal_geom.cpp b/src/gdal_geom.cpp
@@ -63,8 +63,12 @@ Rcpp::NumericVector CPL_length(Rcpp::List sfc) {
 				}
 				break;
 			default: {
-					OGRGeometryCollection *a = (OGRGeometryCollection *) g[i];
-					out[i] = a->get_Length();
+					if (OGR_GT_IsSubClassOf(gt, wkbGeometryCollection)) {
+						OGRGeometryCollection *a = (OGRGeometryCollection *) g[i];
+						out[i] = a->get_Length();
+					} else {
+						out[i] = 0.0;
+					}
 				}
 		}
 		OGRGeometryFactory f;