From: Robin Barker <RMBarker@cpan.org>
Date: Thu, 21 Jun 2001 18:05:02 +0000 (+0100)
Subject: format
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2fd8035b9b73ff5941632ce1b4c27fe1289eebc5;p=p5sagit%2Fp5-mst-13.2.git

format
Message-Id: <200106211705.SAA08067@tempest.npl.co.uk>

p4raw-id: //depot/perl@10791
---

diff --git a/perlio.c b/perlio.c
index a93a68c..3fac35d 100644
--- a/perlio.c
+++ b/perlio.c
@@ -754,7 +754,7 @@ PerlIO_layer_fetch(pTHX_ PerlIO_list_t *av,IV n,PerlIO_funcs *def)
 {
  if (n >= 0 && n < av->cur)
   {
-   PerlIO_debug("Layer %ld is %s\n",n,av->array[n].funcs->name);
+   PerlIO_debug("Layer %"IVdf" is %s\n",n,av->array[n].funcs->name);
    return av->array[n].funcs;
   }
  if (!def)