Minor bugfixes

[tpope-extra.git] / perl / blogcl

diff --git a/perl/blogcl b/perl/blogcl
index 71403b8e3f116ae1caa694b39ed1aebeaa5f0e6c..53871820eb18e8dc3410ec00029519410bf5da57 100755 (executable)
--- 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'});