Package info files correctly

[platform/upstream/gcc48.git] / libgfortran / runtime / main.c

diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index 79659e5..d774cfb 100644 (file)
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -1,5 +1,4 @@
-/* Copyright (C) 2002-2003, 2005, 2007, 2009, 2011 
-   Free Software Foundation, Inc.
+/* Copyright (C) 2002-2013 Free Software Foundation, Inc.
    Contributed by Andy Vaught and Paul Brook <paul@nowt.org>
 
 This file is part of the GNU Fortran runtime library (libgfortran).
@@ -163,7 +162,7 @@ find_addr2line (void)
 {
 #ifdef HAVE_ACCESS
 #define A2L_LEN 10
-  char *path = getenv ("PATH");
+  char *path = secure_getenv ("PATH");
   if (!path)
     return;
   size_t n = strlen (path);