[root@ufuso ~]# vi /usr/share/perl5/Getopt/Long.pm　←　Long.pmファイルの487行目当たりを表示
    # Process argument list
    my $goon = 1;
    while ( $goon && @$argv > 0 ) {

        # Get next argument.
        $opt = shift (@$argv) || '';　←　|| ''(which is 2 | (pipe characters) and
 2 ' (single quotes)を追記
        print STDERR ("=> arg "", $opt, ""n") if $debug;

[root@ufuso ~]# /etc/rc.d/init.d/nagios restart　←　Nagios再起動
Running configuration check...done.
Stopping nagios: done.
Starting nagios: done.