diff options
author | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2016-09-06 17:25:12 +0200 |
---|---|---|
committer | Mike Gabriel <mike.gabriel@das-netzwerkteam.de> | 2016-09-06 17:25:12 +0200 |
commit | 844667918a282a1d0d5ef4d814c36ecf59faf805 (patch) | |
tree | d3c486f296eb24360df5bd3063b834f6ab07f14d /lib/Arctica | |
parent | 77cf37e6fb5978ab782c7c5d73e69f79b2dd5acd (diff) | |
download | perl-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.pm | 2 | ||||
-rw-r--r-- | lib/Arctica/Core/eventInit.pm | 8 |
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; } |