Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

s/Can't/Cannot/g

  • Loading branch information...
commit 430e3d68b0321e96b5ae1586329b0caa74dc8ca8 1 parent 52399f8
@moritz moritz authored
Showing with 38 additions and 38 deletions.
  1. +9 −9 CursorBase.pmc
  2. +22 −22 STD.pm6
  3. +3 −3 STD_P5.pm6
  4. +4 −4 viv
View
18 CursorBase.pmc
@@ -109,10 +109,10 @@ binmode(STDERR, ":utf8");
binmode(STDOUT, ":utf8");
BEGIN {
if ($^P || !DEBUG) {
- open(::LOG, ">&1") or die "Can't create $0.log: $!";
+ open(::LOG, ">&1") or die "Cannot create $0.log: $!";
}
else {
- open(::LOG, ">$0.log") or die "Can't create $0.log: $!";
+ open(::LOG, ">$0.log") or die "Cannot create $0.log: $!";
}
binmode(::LOG, ":utf8");
}
@@ -249,7 +249,7 @@ sub sys_save_syml {
File::Path::mkpath($path);
- open(SETTING, ">", $file) or die "Can't open new setting file $file: $!";
+ open(SETTING, ">", $file) or die "Cannot open new setting file $file: $!";
print SETTING Dump($all);
close SETTING;
}
@@ -295,7 +295,7 @@ sub sys_find_module {
}
}
- $self->sorry("Can't locate module $module");
+ $self->sorry("Cannot locate module $module");
return;
}
@@ -361,7 +361,7 @@ sub _load_yaml_lex {
sub LoadFile {
my $file = shift;
- open my $fh, $file or die "Can't open $file: $!";
+ open my $fh, $file or die "Cannot open $file: $!";
my $text = do { local $/; <$fh>; };
close $fh;
Load($text);
@@ -400,7 +400,7 @@ sub parsefile {
my %args = @_;
$file =~ s/::/\//g;
local $::FILE = { name => $file };
- open(FILE, '<:utf8', $file) or die "Can't open $file: $!\n";
+ open(FILE, '<:utf8', $file) or die "Cannot open $file: $!\n";
my $text;
{
local $/;
@@ -2944,7 +2944,7 @@ sub $mangle {
END
}
$lang->deb("derive $genpkg from $WHAT adding $mangle") if DEBUG & DEBUG::mixins;
- eval $e or die "Can't create $name: $@\n";
+ eval $e or die "Cannot create $name: $@\n";
$::LANG{'MAIN'} = $lang->cursor_fresh($genpkg);
}
$lang;
@@ -3024,7 +3024,7 @@ sub do_import { my $self = shift;
$self->add_my_name($_, $pkg->{$_});
}
elsif ($pkg->{$_}) {
- $self->worry("Can't import $_ because it's not exported by $module");
+ $self->worry("Cannot import $_ because it's not exported by $module");
next;
}
}
@@ -3062,7 +3062,7 @@ sub canonicalize_name { my $self = shift;
$name =~ s/^([\$\@\%\&])(\^|:(?!:))/$1/;
$name =~ s/\b:[UD_]$//;
return $name unless $name =~ /::/;
- $self->panic("Can't canonicalize a run-time name at compile time: $name") if $name =~ /::\(/;
+ $self->panic("Cannot canonicalize a run-time name at compile time: $name") if $name =~ /::\(/;
$name =~ s/^([\$\@%&][!*=?:^.]?)(.*::)(.*)$/$2<$1$3>/;
my $vname;
if ($name =~ s/::<(.*)>$//) {
View
44 STD.pm6
@@ -389,7 +389,7 @@ method unitstop ($stop) { self.mixin( ::unitstop[$stop] ); }
method truly ($bool,$opt) {
return self if $bool;
- self.sorry("Can't negate $opt adverb");
+ self.sorry("Cannot negate $opt adverb");
self;
}
@@ -2366,7 +2366,7 @@ grammar P6 is STD {
token desigilname {
[
| <?before '$' >
- [ <?{ $*IN_DECL }> <.panic: "Can't declare an indirect variable name"> ]?
+ [ <?{ $*IN_DECL }> <.panic: "Cannot declare an indirect variable name"> ]?
<variable> {
$*VAR = $<variable>;
self.check_variable($*VAR) if substr($*VAR,1,1) ne '$';
@@ -2397,10 +2397,10 @@ grammar P6 is STD {
|| [
| <sigil> <twigil>? <desigilname> { $name = $<desigilname>.Str }
| <special_variable>
- | <sigil> <index=.decint> [<?{ $*IN_DECL }> <.panic: "Can't declare a numeric variable">]?
+ | <sigil> <index=.decint> [<?{ $*IN_DECL }> <.panic: "Cannot declare a numeric variable">]?
# Note: $() can also parse as contextualizer in an expression; should have same effect
- | <sigil> <?before '<'> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Can't declare a match variable">]?
- | <sigil> <?before '('> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Can't declare a contextualizer">]?
+ | <sigil> <?before '<'> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Cannot declare a match variable">]?
+ | <sigil> <?before '('> <postcircumfix> [<?{ $*IN_DECL }> <.panic: "Cannot declare a contextualizer">]?
| <sigil> <?{ $*IN_DECL }>
| <?> {
if $*QSIGIL {
@@ -2834,7 +2834,7 @@ grammar P6 is STD {
# ordinary parameter name
|| <name=.identifier>
- || <name=.decint> <.panic: "Can't declare a numeric parameter">
+ || <name=.decint> <.panic: "Cannot declare a numeric parameter">
|| $<name> = [<[/!]>]
# bare sigil?
@@ -2923,15 +2923,15 @@ grammar P6 is STD {
[
<default_value> {
given $quant {
- when '!' { $¢.sorry("Can't put a default on a required parameter") }
- when '*' { $¢.sorry("Can't put a default on a slurpy parameter") }
- when '**' { $¢.sorry("Can't put a default on a slice parameter") }
- when '|' { $¢.sorry("Can't put a default on an slurpy capture parameter") }
- when '\\' { $¢.sorry("Can't put a default on a capture parameter") }
+ when '!' { $¢.sorry("Cannot put a default on a required parameter") }
+ when '*' { $¢.sorry("Cannot put a default on a slurpy parameter") }
+ when '**' { $¢.sorry("Cannot put a default on a slice parameter") }
+ when '|' { $¢.sorry("Cannot put a default on an slurpy capture parameter") }
+ when '\\' { $¢.sorry("Cannot put a default on a capture parameter") }
}
$kind = '?' if $kind eq '!';
}
- [<?before ':' > <.sorry: "Can't put a default on the invocant parameter">]?
+ [<?before ':' > <.sorry: "Cannot put a default on the invocant parameter">]?
[<!before <[,;)\]\{\-]> > <.sorry: "Default expression must come last">]?
]?
[<?before ':'> <?{ $kind ne '!' }> <.sorry: "Invocant is too exotic">]?
@@ -2945,10 +2945,10 @@ grammar P6 is STD {
when '!' {
given $*zone {
when 'posopt' {
- $¢.sorry("Can't put required parameter after optional parameters");
+ $¢.sorry("Cannot put required parameter after optional parameters");
}
when 'var' {
- $¢.sorry("Can't put required parameter after variadic parameters");
+ $¢.sorry("Cannot put required parameter after variadic parameters");
}
}
}
@@ -2956,7 +2956,7 @@ grammar P6 is STD {
given $*zone {
when 'posreq' { $*zone = 'posopt' }
when 'var' {
- $¢.sorry("Can't put optional positional parameter after variadic parameters");
+ $¢.sorry("Cannot put optional positional parameter after variadic parameters");
}
}
}
@@ -3210,7 +3210,7 @@ grammar P6 is STD {
method can_meta ($op, $meta) {
!$op<O><fiddly> ||
- self.sorry("Can't " ~ $meta ~ " " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are too fiddly");
+ self.sorry("Cannot " ~ $meta ~ " " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are too fiddly");
self;
}
@@ -3234,7 +3234,7 @@ grammar P6 is STD {
[
|| <!{ $op<O><diffy> }>
|| <?{ $op<O><assoc> eq 'chain' }>
- || <.sorry("Can't reduce with " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy and not chaining")>
+ || <.sorry("Cannot reduce with " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy and not chaining")>
]
<O($op.Opairs, |%list_prefix, assoc => 'unary', uassoc => 'left')>
@@ -3262,7 +3262,7 @@ grammar P6 is STD {
<?{ $<infixish><O><iffy> }>
$<O> = {$<infixish><O>}
- || <.panic("Can't negate " ~ $<infixish>.Str ~ " because " ~ $<infixish><O><dba> ~ " operators are not iffy enough")>
+ || <.panic("Cannot negate " ~ $<infixish>.Str ~ " because " ~ $<infixish><O><dba> ~ " operators are not iffy enough")>
]
}
@@ -3320,7 +3320,7 @@ grammar P6 is STD {
:my %prec;
'='
<.can_meta($op, "make assignment out of")>
- [ <!{ $op<O><diffy> }> || <.sorry("Can't make assignment out of " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy")> ]
+ [ <!{ $op<O><diffy> }> || <.sorry("Cannot make assignment out of " ~ $op<sym> ~ " because " ~ $op<O><dba> ~ " operators are diffy")> ]
{
$<sym> = $op<sym> ~ '=';
if $op<O><prec> gt %comma<prec> {
@@ -4773,7 +4773,7 @@ grammar Regex is STD {
<atom>
[ <normspace>? <quantifier> ]?
# <?{ $<atom>.max_width }>
-# || <.panic: "Can't quantify zero-width atom">
+# || <.panic: "Cannot quantify zero-width atom">
}
token atom {
@@ -5352,9 +5352,9 @@ method add_name ($name) {
self.deb("Adding $scope $name") if $*DEBUG +& DEBUG::symtab;
if $scope eq 'augment' or $scope eq 'supersede' {
self.is_name($name) or
- self.worry("Can't $scope $pkgdecl $name because it doesn't exist");
+ self.worry("Cannot $scope $pkgdecl $name because it doesn't exist");
$*MONKEY_TYPING or
- self.sorry("Can't $scope $pkgdecl $name without MONKEY_TYPING");
+ self.sorry("Cannot $scope $pkgdecl $name without MONKEY_TYPING");
}
else {
if $scope eq 'our' {
View
6 STD_P5.pm6
@@ -1497,7 +1497,7 @@ token charspec {
method truly ($bool,$opt) {
return self if $bool;
- self.panic("Can't negate $opt adverb");
+ self.panic("Cannot negate $opt adverb");
}
grammar Q is STD {
@@ -2291,7 +2291,7 @@ grammar Regex is STD {
<atom>
[ <.ws> <quantifier=p5quantifier>
# <?{ $<atom>.max_width }>
-# || <.panic: "Can't quantify zero-width atom">
+# || <.panic: "Cannot quantify zero-width atom">
]?
<.ws>
}
@@ -2336,7 +2336,7 @@ grammar Regex is STD {
token p5metachar:var {
<?before <sigil=p5sigil>\w>
- <.panic: "Can't interpolate variable in Perl 5 regex">
+ <.panic: "Cannot interpolate variable in Perl 5 regex">
}
token p5backslash:A { <sym> }
View
8 viv
@@ -1250,7 +1250,7 @@ TEMPLATE
# We don't un6 because some things need to un6 specially - backrefs
if ($self->{binding}) {
local $::PARSENAME = 1;
- $self->{SYM} =~ /^\$<(.*)>$/ or die "Can't bind backref to " . $self->{SYM};
+ $self->{SYM} =~ /^\$<(.*)>$/ or die "Cannot bind backref to " . $self->{SYM};
RE_bindnamed->new(var => $1, atom =>
$self->{binding}{quantified_atom}->re_ast);
} else {
@@ -3302,7 +3302,7 @@ END
DEEP::raw($result[0]);
}
else {
- die("Can't reverse serial disjunction") if $::REV;
+ die("Cannot reverse serial disjunction") if $::REV;
for (@result) { $_ = "do {\n" . ::indent("push \@gather, $_\n") . "}"; }
# We need to force the scope here because of the my $C
my $result = "do {" . ::indent(
@@ -3347,7 +3347,7 @@ END
my $self = shift;
local $::NEEDMATCH = 0;
my $name = $$self{name};
- die "Can't reverse $name" if $::REV;
+ die "Cannot reverse $name" if $::REV;
my $re;
if ($name eq "sym") {
@@ -3527,7 +3527,7 @@ END
my $self = shift;
my $re = $$self{re};
my $name = $$self{name};
- die("Can't reverse $name") if $::REV and $name ne 'before';
+ die("Cannot reverse $name") if $::REV and $name ne 'before';
local $::REV = $name eq 'after' ? '_rev' : '';
{
local %::BINDINGS;
Please sign in to comment.
Something went wrong with that request. Please try again.