view release on metacpan or  search on metacpan

Mmap.xs  view on Meta::CPAN

177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
 SV   *        sv;
 
PROTOTYPE: $$$*;$
CODE:
  fd = fileno( fh );
  if( fd < 0 ) 
    XSRETURN_UNDEF;
 
  if( !len ) {
    struct stat st;
    if( fstat( fd, &st ) == -1 )
      XSRETURN_UNDEF;
    len = st.st_size;
  }
 
  Newz( 0, ret, 1, Mmap );
 
  ret->len = ret->cur = len;
  ret->off = off;
  ret->prot = prot;
  ret->flags = flags;