[perl #46409] [TODO] Verify flags in PIO_mmap_open()

[via RT]

# New Ticket Created by  Paul Cochrane 
# Please include the string:  [perl #46409]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=46409 >


In src/io/io_mmap.c:PIO_mmap_open() there is the todo item:

/* TODO verify flags */
        io->b.startb = (unsigned char *)mmap(0, file_size, PROT_READ,
         MAP_SHARED, io->fd, 0);

This needs to be implemented.