From: <har...@us...> - 2011-01-06 19:23:32
|
Revision: 4728 http://net-policy.svn.sourceforge.net/net-policy/?rev=4728&view=rev Author: hardaker Date: 2011-01-06 19:23:26 +0000 (Thu, 06 Jan 2011) Log Message: ----------- updated the http site for the example picture Modified Paths: -------------- trunk/net-policy/perl/Getopt_GUI/Long.pm Modified: trunk/net-policy/perl/Getopt_GUI/Long.pm =================================================================== --- trunk/net-policy/perl/Getopt_GUI/Long.pm 2011-01-04 18:37:28 UTC (rev 4727) +++ trunk/net-policy/perl/Getopt_GUI/Long.pm 2011-01-06 19:23:26 UTC (rev 4728) @@ -37,7 +37,7 @@ ( display_results => { - title => "$ARGV Output", + title => (defined($ARGV) ? $ARGV : "") . " Output", questions => [ { type => 'paragraph', @@ -85,8 +85,9 @@ my $firstarg = ""; - if ($main::ARGV[0] =~ /--*gui/ || $main::ARGV[0] =~ /--*no-gui/ || - $main::ARGV[0] =~ /--*nogui/) { + if ($#main::ARGV > -1 && + ($main::ARGV[0] =~ /--*gui/ || $main::ARGV[0] =~ /--*no-gui/ || + $main::ARGV[0] =~ /--*nogui/)) { $firstarg = shift @main::ARGV; $firstarg = '-' . $firstarg if ($firstarg =~ /^-[^-]/); } @@ -809,7 +810,7 @@ # or a GUI screen: - (see http://net-policy.sourceforge.net/images/getopt_example.png ) + (see http://www.dnssec-tools.org/images/getopt_example.png ) =head1 DESCRIPTION This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |