Skip to content

Commit 430e3d6

Browse files
moritzmoritz
committed
s/Can't/Cannot/g
1 parent 52399f8 commit 430e3d6

File tree

4 files changed

+38
-38
lines changed

4 files changed

+38
-38
lines changed

‎CursorBase.pmc‎

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -109,10 +109,10 @@ binmode(STDERR, ":utf8");
109109
binmode(STDOUT, ":utf8");
110110
BEGIN {
111111
if ($^P || !DEBUG) {
112-
open(::LOG, ">&1") or die "Can't create $0.log: $!";
112+
open(::LOG, ">&1") or die "Cannot create $0.log: $!";
113113
}
114114
else {
115-
open(::LOG, ">$0.log") or die "Can't create $0.log: $!";
115+
open(::LOG, ">$0.log") or die "Cannot create $0.log: $!";
116116
}
117117
binmode(::LOG, ":utf8");
118118
}
@@ -249,7 +249,7 @@ sub sys_save_syml {
249249

250250
File::Path::mkpath($path);
251251

252-
open(SETTING, ">", $file) or die "Can't open new setting file $file: $!";
252+
open(SETTING, ">", $file) or die "Cannot open new setting file $file: $!";
253253
print SETTING Dump($all);
254254
close SETTING;
255255
}
@@ -295,7 +295,7 @@ sub sys_find_module {
295295
}
296296
}
297297

298-
$self->sorry("Can't locate module $module");
298+
$self->sorry("Cannot locate module $module");
299299
return;
300300
}
301301

@@ -361,7 +361,7 @@ sub _load_yaml_lex {
361361

362362
sub LoadFile {
363363
my $file = shift;
364-
open my $fh, $file or die "Can't open $file: $!";
364+
open my $fh, $file or die "Cannot open $file: $!";
365365
my $text = do { local $/; <$fh>; };
366366
close $fh;
367367
Load($text);
@@ -400,7 +400,7 @@ sub parsefile {
400400
my %args = @_;
401401
$file =~ s/::/\//g;
402402
local $::FILE = { name => $file };
403-
open(FILE, '<:utf8', $file) or die "Can't open $file: $!\n";
403+
open(FILE, '<:utf8', $file) or die "Cannot open $file: $!\n";
404404
my $text;
405405
{
406406
local $/;
@@ -2944,7 +2944,7 @@ sub $mangle {
29442944
END
29452945
}
29462946
$lang->deb("derive $genpkg from $WHAT adding $mangle") if DEBUG & DEBUG::mixins;
2947-
eval $e or die "Can't create $name: $@\n";
2947+
eval $e or die "Cannot create $name: $@\n";
29482948
$::LANG{'MAIN'} = $lang->cursor_fresh($genpkg);
29492949
}
29502950
$lang;
@@ -3024,7 +3024,7 @@ sub do_import { my $self = shift;
30243024
$self->add_my_name($_, $pkg->{$_});
30253025
}
30263026
elsif ($pkg->{$_}) {
3027-
$self->worry("Can't import $_ because it's not exported by $module");
3027+
$self->worry("Cannot import $_ because it's not exported by $module");
30283028
next;
30293029
}
30303030
}
@@ -3062,7 +3062,7 @@ sub canonicalize_name { my $self = shift;
30623062
$name =~ s/^([\$\@\%\&])(\^|:(?!:))/$1/;
30633063
$name =~ s/\b:[UD_]$//;
30643064
return $name unless $name =~ /::/;
3065-
$self->panic("Can't canonicalize a run-time name at compile time: $name") if $name =~ /::\(/;
3065+
$self->panic("Cannot canonicalize a run-time name at compile time: $name") if $name =~ /::\(/;
30663066
$name =~ s/^([\$\@%&][!*=?:^.]?)(.*::)(.*)$/$2<$1$3>/;
30673067
my $vname;
30683068
if ($name =~ s/::<(.*)>$//) {

‎STD.pm6‎

Lines changed: 22 additions & 22 deletions
Original file line numberDiff line numberDiff line change
@@ -389,7 +389,7 @@ method unitstop ($stop) { self.mixin( ::unitstop[$stop] ); }
389389

390390
method truly ($bool,$opt) {
391391
return self if $bool;
392-
self.sorry("Can't negate $opt adverb");
392+
self.sorry("Cannot negate $opt adverb");
393393
self;
394394
}
395395

@@ -2366,7 +2366,7 @@ grammar P6 is STD {
23662366
token desigilname {
23672367
[
23682368
| <?before '$' >
2369-
[ <?{ $*IN_DECL }> <.panic: "Can't declare an indirect variable name"> ]?
2369+
[ <?{ $*IN_DECL }> <.panic: "Cannot declare an indirect variable name"> ]?
23702370
<variable> {
23712371
$*VAR = $<variable>;
23722372
self.check_variable($*VAR) if substr($*VAR,1,1) ne '$';
@@ -2397,10 +2397,10 @@ grammar P6 is STD {
23972397
|| [
23982398
| <sigil> <twigil>? <desigilname> { $name = $<desigilname>.Str }
23992399
| <special_variable>
2400-
| <sigil> <index=.decint> [<?{ $*IN_DECL }> <.panic: "Can't declare a numeric variable">]?
2400+
| <sigil> <index=.decint> [<?{ $*IN_DECL }> <.panic: "Cannot declare a numeric variable">]?
24012401
# Note: $() can also parse as contextualizer in an expression; should have same effect
2402-
| <sigil> <?before '<'> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Can't declare a match variable">]?
2403-
| <sigil> <?before '('> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Can't declare a contextualizer">]?
2402+
| <sigil> <?before '<'> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Cannot declare a match variable">]?
2403+
| <sigil> <?before '('> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Cannot declare a contextualizer">]?
24042404
| <sigil> <?{ $*IN_DECL }>
24052405
| <?> {
24062406
if $*QSIGIL {
@@ -2834,7 +2834,7 @@ grammar P6 is STD {
28342834

28352835
# ordinary parameter name
28362836
|| <name=.identifier>
2837-
|| <name=.decint> <.panic: "Can't declare a numeric parameter">
2837+
|| <name=.decint> <.panic: "Cannot declare a numeric parameter">
28382838
|| $<name> = [<[/!]>]
28392839

28402840
# bare sigil?
@@ -2923,15 +2923,15 @@ grammar P6 is STD {
29232923
[
29242924
<default_value> {
29252925
given $quant {
2926-
when '!' { $¢.sorry("Can't put a default on a required parameter") }
2927-
when '*' { $¢.sorry("Can't put a default on a slurpy parameter") }
2928-
when '**' { $¢.sorry("Can't put a default on a slice parameter") }
2929-
when '|' { $¢.sorry("Can't put a default on an slurpy capture parameter") }
2930-
when '\\' { $¢.sorry("Can't put a default on a capture parameter") }
2926+
when '!' { $¢.sorry("Cannot put a default on a required parameter") }
2927+
when '*' { $¢.sorry("Cannot put a default on a slurpy parameter") }
2928+
when '**' { $¢.sorry("Cannot put a default on a slice parameter") }
2929+
when '|' { $¢.sorry("Cannot put a default on an slurpy capture parameter") }
2930+
when '\\' { $¢.sorry("Cannot put a default on a capture parameter") }
29312931
}
29322932
$kind = '?' if $kind eq '!';
29332933
}
2934-
[<?before ':' > <.sorry: "Can't put a default on the invocant parameter">]?
2934+
[<?before ':' > <.sorry: "Cannot put a default on the invocant parameter">]?
29352935
[<!before <[,;)\]\{\-]> > <.sorry: "Default expression must come last">]?
29362936
]?
29372937
[<?before ':'> <?{ $kind ne '!' }> <.sorry: "Invocant is too exotic">]?
@@ -2945,18 +2945,18 @@ grammar P6 is STD {
29452945
when '!' {
29462946
given $*zone {
29472947
when 'posopt' {
2948-
$¢.sorry("Can't put required parameter after optional parameters");
2948+
$¢.sorry("Cannot put required parameter after optional parameters");
29492949
}
29502950
when 'var' {
2951-
$¢.sorry("Can't put required parameter after variadic parameters");
2951+
$¢.sorry("Cannot put required parameter after variadic parameters");
29522952
}
29532953
}
29542954
}
29552955
when '?' {
29562956
given $*zone {
29572957
when 'posreq' { $*zone = 'posopt' }
29582958
when 'var' {
2959-
$¢.sorry("Can't put optional positional parameter after variadic parameters");
2959+
$¢.sorry("Cannot put optional positional parameter after variadic parameters");
29602960
}
29612961
}
29622962
}
@@ -3210,7 +3210,7 @@ grammar P6 is STD {
32103210

32113211
method can_meta ($op, $meta) {
32123212
!$op<O><fiddly> ||
3213-
self.sorry("Can't " ~ $meta ~ " " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are too fiddly");
3213+
self.sorry("Cannot " ~ $meta ~ " " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are too fiddly");
32143214
self;
32153215
}
32163216

@@ -3234,7 +3234,7 @@ grammar P6 is STD {
32343234
[
32353235
|| <!{ $op<O><diffy> }>
32363236
|| <?{ $op<O><assoc> eq 'chain' }>
3237-
|| <.sorry("Can't reduce with " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy and not chaining")>
3237+
|| <.sorry("Cannot reduce with " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy and not chaining")>
32383238
]
32393239

32403240
<O($op.Opairs, |%list_prefix, assoc => 'unary', uassoc => 'left')>
@@ -3262,7 +3262,7 @@ grammar P6 is STD {
32623262
<?{ $<infixish><O><iffy> }>
32633263
$<O> = {$<infixish><O>}
32643264

3265-
|| <.panic("Can't negate " ~ $<infixish>.Str ~ " because " ~ $<infixish><O><dba> ~ " operators are not iffy enough")>
3265+
|| <.panic("Cannot negate " ~ $<infixish>.Str ~ " because " ~ $<infixish><O><dba> ~ " operators are not iffy enough")>
32663266
]
32673267
}
32683268

@@ -3320,7 +3320,7 @@ grammar P6 is STD {
33203320
:my %prec;
33213321
'='
33223322
<.can_meta($op, "make assignment out of")>
3323-
[ <!{ $op<O><diffy> }> || <.sorry("Can't make assignment out of " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy")> ]
3323+
[ <!{ $op<O><diffy> }> || <.sorry("Cannot make assignment out of " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy")> ]
33243324
{
33253325
$<sym> = $op<sym> ~ '=';
33263326
if $op<O><prec> gt %comma<prec> {
@@ -4773,7 +4773,7 @@ grammar Regex is STD {
47734773
<atom>
47744774
[ <normspace>? <quantifier> ]?
47754775
# <?{ $<atom>.max_width }>
4776-
# || <.panic: "Can't quantify zero-width atom">
4776+
# || <.panic: "Cannot quantify zero-width atom">
47774777
}
47784778

47794779
token atom {
@@ -5352,9 +5352,9 @@ method add_name ($name) {
53525352
self.deb("Adding $scope $name") if $*DEBUG +& DEBUG::symtab;
53535353
if $scope eq 'augment' or $scope eq 'supersede' {
53545354
self.is_name($name) or
5355-
self.worry("Can't $scope $pkgdecl $name because it doesn't exist");
5355+
self.worry("Cannot $scope $pkgdecl $name because it doesn't exist");
53565356
$*MONKEY_TYPING or
5357-
self.sorry("Can't $scope $pkgdecl $name without MONKEY_TYPING");
5357+
self.sorry("Cannot $scope $pkgdecl $name without MONKEY_TYPING");
53585358
}
53595359
else {
53605360
if $scope eq 'our' {

‎STD_P5.pm6‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1497,7 +1497,7 @@ token charspec {
14971497

14981498
method truly ($bool,$opt) {
14991499
return self if $bool;
1500-
self.panic("Can't negate $opt adverb");
1500+
self.panic("Cannot negate $opt adverb");
15011501
}
15021502

15031503
grammar Q is STD {
@@ -2291,7 +2291,7 @@ grammar Regex is STD {
22912291
<atom>
22922292
[ <.ws> <quantifier=p5quantifier>
22932293
# <?{ $<atom>.max_width }>
2294-
# || <.panic: "Can't quantify zero-width atom">
2294+
# || <.panic: "Cannot quantify zero-width atom">
22952295
]?
22962296
<.ws>
22972297
}
@@ -2336,7 +2336,7 @@ grammar Regex is STD {
23362336

23372337
token p5metachar:var {
23382338
<?before <sigil=p5sigil>\w>
2339-
<.panic: "Can't interpolate variable in Perl 5 regex">
2339+
<.panic: "Cannot interpolate variable in Perl 5 regex">
23402340
}
23412341

23422342
token p5backslash:A { <sym> }

‎viv‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1250,7 +1250,7 @@ TEMPLATE
12501250
# We don't un6 because some things need to un6 specially - backrefs
12511251
if ($self->{binding}) {
12521252
local $::PARSENAME = 1;
1253-
$self->{SYM} =~ /^\$<(.*)>$/ or die "Can't bind backref to " . $self->{SYM};
1253+
$self->{SYM} =~ /^\$<(.*)>$/ or die "Cannot bind backref to " . $self->{SYM};
12541254
RE_bindnamed->new(var => $1, atom =>
12551255
$self->{binding}{quantified_atom}->re_ast);
12561256
} else {
@@ -3302,7 +3302,7 @@ END
33023302
DEEP::raw($result[0]);
33033303
}
33043304
else {
3305-
die("Can't reverse serial disjunction") if $::REV;
3305+
die("Cannot reverse serial disjunction") if $::REV;
33063306
for (@result) { $_ = "do {\n" . ::indent("push \@gather, $_\n") . "}"; }
33073307
# We need to force the scope here because of the my $C
33083308
my $result = "do {" . ::indent(
@@ -3347,7 +3347,7 @@ END
33473347
my $self = shift;
33483348
local $::NEEDMATCH = 0;
33493349
my $name = $$self{name};
3350-
die "Can't reverse $name" if $::REV;
3350+
die "Cannot reverse $name" if $::REV;
33513351
my $re;
33523352

33533353
if ($name eq "sym") {
@@ -3527,7 +3527,7 @@ END
35273527
my $self = shift;
35283528
my $re = $$self{re};
35293529
my $name = $$self{name};
3530-
die("Can't reverse $name") if $::REV and $name ne 'before';
3530+
die("Cannot reverse $name") if $::REV and $name ne 'before';
35313531
local $::REV = $name eq 'after' ? '_rev' : '';
35323532
{
35333533
local %::BINDINGS;

0 commit comments

Comments
 (0)