This file is indexed.

/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