This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Casting tweak from Paul Marquess, helps Merijn on AIX.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 15 Oct 2001 13:40:20 +0000 (13:40 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 15 Oct 2001 13:40:20 +0000 (13:40 +0000)
p4raw-id: //depot/perl@12443

ext/DB_File/DB_File.xs

index d2dc572..db4382b 100644 (file)
@@ -1253,7 +1253,7 @@ SV *   sv ;
 
            svp = hv_fetch(action, "flags", 5, FALSE);
           if (svp)
-              (void)dbp->set_flags(dbp, SvIV(*svp)) ;
+              (void)dbp->set_flags(dbp, (u_int32_t)SvIV(*svp)) ;
    
            svp = hv_fetch(action, "cachesize", 9, FALSE);
           if (svp)