Browse Source

Use the error function rather than die for reporting config errors

master
Gavan Fantom 14 years ago
parent
commit
92251198dc
  1. 6
      orangelogin.pl

6
orangelogin.pl

@ -28,13 +28,13 @@ while (<CONFIG>)
close CONFIG; close CONFIG;
$username = $options{'username'}; $username = $options{'username'};
die "username not set" unless defined($username); error("username not set") unless defined($username);
$password = $options{'password'}; $password = $options{'password'};
die "password not set" unless defined($password); error("password not set") unless defined($password);
$downloaddir = $options{'downloaddir'}; $downloaddir = $options{'downloaddir'};
die "downloaddir not set" unless defined($downloaddir); error("downloaddir not set") unless defined($downloaddir);
print "Fetching homepage\n"; print "Fetching homepage\n";
$mech->get("https://www.orange.co.uk/"); $mech->get("https://www.orange.co.uk/");

Loading…
Cancel
Save