No Constant Properties exported for Optical surfaces

ROOT
1

If I look at TGDMLWrite.cxx, in XMLNodePointer_t TGDMLWrite::CreateOpticalSurfaceN(TGeoOpticalSurface *geoSurf), there is no geoSurf->GetConstProperties() part which means no Constant properties are written to the gdml.
(An equivalent with GetConstProperties() exists in XMLNodePointer_t TGDMLWrite::CreateMaterialN(TGeoMaterial *material, TString mname))
Is this a bug or am I missing something?

ROOT Version: master
Platform: all
Compiler: all

2

Created a PR for this:

3

I guess @agheata will have a look.

4

Indeed, it seems that this was overlooked. Thanks for spotting this and for the fix!