#!/usr/bin/perl -w
#!/usr/bin/env perl
#
# Copyright by The HDF Group.
# Copyright by the Board of Trustees of the University of Illinois.
# All rights reserved.
#
# This file is part of HDF5.  The full HDF5 copyright notice, including
# terms governing use, modification, and redistribution, is contained in
# the COPYING file, which can be found at the root of the source code
# distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases.
# If you do not have access to either file, you may request a copy from
# help@hdfgroup.org.
#
require 5.003;
use warnings;
# Purpose: insures that API functions aren't called internally.
# Usage:   checkapi H5*.c
my $filename = "";
my $lastname = "";
if(<>) {
    while (<>) {
        if($ARGV =~ /\//) {
            ($filename) = ($ARGV =~ /^.*\/([A-Za-z0-9_]*)\.c$/);
        } else {