aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica
diff options
context:
space:
mode:
authorMike Gabriel <mike.gabriel@das-netzwerkteam.de>2016-09-06 17:25:12 +0200
committerMike Gabriel <mike.gabriel@das-netzwerkteam.de>2016-09-06 17:25:12 +0200
commit844667918a282a1d0d5ef4d814c36ecf59faf805 (patch)
treed3c486f296eb24360df5bd3063b834f6ab07f14d /lib/Arctica
parent77cf37e6fb5978ab782c7c5d73e69f79b2dd5acd (diff)
downloadperl-Arctica-Core-844667918a282a1d0d5ef4d814c36ecf59faf805.tar.gz
perl-Arctica-Core-844667918a282a1d0d5ef4d814c36ecf59faf805.tar.bz2
perl-Arctica-Core-844667918a282a1d0d5ef4d814c36ecf59faf805.zip
Typos: Amend some typo fixes.
Diffstat (limited to 'lib/Arctica')
-rw-r--r--lib/Arctica/Core/ManageDirs.pm2
-rw-r--r--lib/Arctica/Core/eventInit.pm8
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/Arctica/Core/ManageDirs.pm b/lib/Arctica/Core/ManageDirs.pm
index 51d4e30..d17d22f 100644
--- a/lib/Arctica/Core/ManageDirs.pm
+++ b/lib/Arctica/Core/ManageDirs.pm
@@ -91,7 +91,7 @@ sub new {
unless (-d $check_arctica_home) {
mkdir($check_arctica_home)
- or die("ManageDirs: Fail to create .arctica 'HOME' directory");
+ or die("ManageDirs: Failed to create .arctica 'HOME' directory");
}
permZealot($check_arctica_home);
diff --git a/lib/Arctica/Core/eventInit.pm b/lib/Arctica/Core/eventInit.pm
index c7e7b65..3a40b04 100644
--- a/lib/Arctica/Core/eventInit.pm
+++ b/lib/Arctica/Core/eventInit.pm
@@ -67,7 +67,7 @@ use Data::Dumper;
use Glib 'TRUE', 'FALSE';
# Be very selective about what (if any) gets exported by default:
our @EXPORT = qw();
-# And be mindfull of what we lett the caller request too:
+# And be mindful of what we let the caller request, too:
our @EXPORT_OK = qw( genARandom BugOUT BugOUT_dumpObjects );
$ENV{'PATH'} = "";
@@ -113,10 +113,10 @@ sub append_aobject {
unless ($aco->{$to_append->{'aobject_name'}}) {
$aco->{$to_append->{'aobject_name'}} = $to_append;
} else {
- die "Dont append an Arctica object more than once!";
+ die "Don't append an Arctica object more than once!";
}
} else {
- die "Not an arctica object?!";
+ die "Not an Arctica object?!";
}
}
@@ -131,7 +131,7 @@ sub return_self {
sub doSelfTerminate {
my $signal = $_[0];
my $ACF_self = $_[1];
- BugOUT(2,"Self Terminating... ($signal)");
+ BugOUT(2,"Self-terminating... ($signal)");
$ACF_self->{'Glib'}{'MainLoop'}->quit;
return 0;
}