Consting part 4

Message-ID: <20050325204331.GA16388@petdance.com>

p4raw-id: //depot/perl@24079

1 files changed, 4 insertions, 2 deletions

diff --git a/perlio.c b/perlio.c
index 2f5373c20f..4d2b6a93f0 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4727,8 +4727,8 @@ char *
 PerlIO_getname(PerlIO *f, char *buf)
 {
     dTHX;
-    char *name = NULL;
 #ifdef VMS
+    char *name = NULL;
     bool exported = FALSE;
     FILE *stdio = PerlIOSelf(f, PerlIOStdio)->stdio;
     if (!stdio) {
@@ -4739,10 +4739,12 @@ PerlIO_getname(PerlIO *f, char *buf)
 	name = fgetname(stdio, buf);
 	if (exported) PerlIO_releaseFILE(f,stdio);
     }
+    return name;
 #else
+    (void)f;
+    (void)buf;
     Perl_croak(aTHX_ "Don't know how to get file name");
 #endif
-    return name;
 }