From adefc3267af98da52b4eafd9df0ada36ea36803a Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 18 Feb 2001 04:56:11 +0000
Subject: fix how to work when $argv[0] is not specified

---
 fml/lib/FML/Process/Configure.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'fml/lib/FML/Process/Configure.pm')

diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm
index bbcce69f..e1747c8c 100644
--- a/fml/lib/FML/Process/Configure.pm
+++ b/fml/lib/FML/Process/Configure.pm
@@ -43,7 +43,6 @@ sub run
     my $config  = $curproc->{ config };
     my $myname  = $args->{ myname };
     my $argv    = $args->{ ARGV };
-    my $command = $argv->[ 0 ] || croak("command not specified\n");
 
     # XXX debug
     # use Data::Dumper; print Dumper( $args ); sleep 3;
@@ -55,6 +54,7 @@ sub run
 	exec 'perldoc', '-v', @$argv;
     }
     else {
+	my $command = $argv->[ 0 ] || croak("command not specified\n");
 	$curproc->lock();
 	{
 	    ;
@@ -69,6 +69,7 @@ sub _show_conf
     my ($curproc, $args) = @_;    
     my $config = $curproc->{ config };
     my $mode   = $args->{ options }->{ n } ? 'difference_only' : 'all';
+    my $argv   = $args->{ ARGV };
 
     $config->dump_variables({ mode => $mode });
 }
-- 
cgit v1.2.1