From 75af80e05a24cfb9da472788e7605552fcb17b81 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Mon, 9 Aug 2004 06:46:40 +0000
Subject: [PATCH] Minor bugfixes

---
 perl/blogcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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'});
-- 
2.30.2