/usr/share/gnudatalanguage/lib/handle_free.pro is in libgnudatalanguage0 0.9.7-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 | ; support for obsolete pro/func.
pro handle_free,id
common gdlhandles
if n_elements(ids) eq 0 then return
w=where(ids eq id, count)
if count eq 1 then begin
ptr_free,ptrs[w]
ids[w]=-1 ; sufficient but bad practice
end
end
|