From: Tim Pope <code@tpope.net>
Date: Mon, 9 Aug 2004 06:46:40 +0000 (+0000)
Subject: Minor bugfixes
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=75af80e05a24cfb9da472788e7605552fcb17b81

Minor bugfixes
---

diff --git a/perl/blogcl b/perl/blogcl
index 71403b8..5387182 100755
--- a/perl/blogcl
+++ b/perl/blogcl
@@ -29,9 +29,9 @@ if ($ARGV[0] eq "help") {
 }
 
 sub init_mt {
-    die "No url given.\n" unless(defined("$url"));
-    die "No username given.\n" unless(defined("$username"));
-    die "No passowrd given.\n" unless(defined("$password"));
+    die "No url given.\n" unless(defined($opts{url}));
+    die "No username given.\n" unless(defined($opts{username}));
+    die "No passowrd given.\n" unless(defined($opts{password}));
     $mt = new Net::MovableType($opts{'url'}) || die "$!";
     $mt->username($opts{'username'});
     $mt->password($opts{'password'});