Author: adsb
Date: 2009-03-04 18:57:49 +0000 (Wed, 04 Mar 2009)
New Revision: 1838
Modified:
trunk/scripts/dcontrol.pl
Log:
Fix daft typoes introduced in the last commit
Modified: trunk/scripts/dcontrol.pl
===================================================================
--- trunk/scripts/dcontrol.pl 2009-03-04 18:56:38 UTC (rev 1837)
+++ trunk/scripts/dcontrol.pl 2009-03-04 18:57:49 UTC (rev 1838)
@@ -24,7 +24,7 @@
BEGIN {
# Load the URI::Escape and LWP::UserAgent modules safely
- my $progname = basename($0;,'.pl');
+ my $progname = basename($0,'.pl');
eval { require URI::Escape; };
if ($@) {
if ($@ =~ /^Can\'t locate URI\/Escape\.pm/) {
@@ -37,7 +37,7 @@
eval { require LWP::UserAgent; };
if ($@) {
my $progname = basename $0;
- if ($@ =~ /^Can\'t locate LWP) {
+ if ($@ =~ /^Can\'t locate LWP/) {
die "$progname: you must have the libwww-perl package installed\nto
use this script\n";
}
die "$progname: problem loading the LWP::UserAgent module:\n
$...@\nhave you installed the libwww-perl package?\n";
--
To unsubscribe, send mail to [email protected].
