Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove extraneous semicolons

git-svn-id: https://svn.parrot.org/parrot/trunk@48028 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
commit d7257df9820591f1e9b9ffa18e6c16adfcb9825f 1 parent b777e9b
Util authored
View
2  config/gen/core_pmcs.pm
@@ -76,7 +76,7 @@ END_H
END_H
print {$OUT} coda();
- close $OUT or die "Can't close file: $!";;
+ close $OUT or die "Can't close file: $!";
move_if_diff( "$file.tmp", $file );
View
4 lib/Parrot/Configure/Options/Conf/File.pm
@@ -73,7 +73,7 @@ sub conditional_assignments {
else {
die "Configuration file $data->{file} did not parse correctly: $!";
}
- return ($data, $steps_list_ref);;
+ return ($data, $steps_list_ref);
}
sub _get_substitutions {
@@ -124,7 +124,7 @@ sub _set_general {
}
sub _set_steps {
- my ($data, $steps, $optsref) = @_;;
+ my ($data, $steps, $optsref) = @_;
my @steplines = split /\n/, $steps;
my @steps_list = ();
LINE: foreach my $line (@steplines) {
View
2  lib/Pod/Simple/Search.pm
@@ -353,7 +353,7 @@ sub _recurse_dir {
}
pop @$modname_bits;
return;
- };;
+ };
local $_;
$recursor->($startdir, '');
View
2  src/dynpmc/rational.pmc
@@ -541,7 +541,7 @@ Adds Integer-, Float- or Rational-PMCs to SELF and stores them in dest.
*/
VTABLE PMC *add_int(INTVAL value, PMC* dest) {
- dest = STATICSELF.clone();;
+ dest = STATICSELF.clone();
rat_add_integer(INTERP, dest, (int) value);
return dest;
}
View
2  src/oo.c
@@ -438,7 +438,7 @@ Parrot_oo_find_vtable_override_for_class(PARROT_INTERP,
ARGIN(PMC *classobj), ARGIN(STRING *name))
{
ASSERT_ARGS(Parrot_oo_find_vtable_override_for_class)
- const Parrot_Class_attributes * const class_info = PARROT_CLASS(classobj);;
+ const Parrot_Class_attributes * const class_info = PARROT_CLASS(classobj);
PARROT_ASSERT(PObj_is_class_TEST(classobj));
return VTABLE_get_pmc_keyed_str(interp, class_info->vtable_overrides, name);
View
2  src/pmc/hash.pmc
@@ -1104,7 +1104,7 @@ Used to archive the hash.
*/
VTABLE void freeze(PMC *info) {
- Hash * const hash = (Hash *)SELF.get_pointer();;
+ Hash * const hash = (Hash *)SELF.get_pointer();
SUPER(info);
VTABLE_push_integer(INTERP, info, VTABLE_elements(INTERP, SELF));
View
4 src/pmc/sub.pmc
@@ -872,7 +872,7 @@ The number of optional named arguments
ASSERT_SIG_PMC(sig);
for (i = 0; i < sig_length; ++i) {
- int sig_item = VTABLE_get_integer_keyed_int(INTERP, sig, i);;
+ int sig_item = VTABLE_get_integer_keyed_int(INTERP, sig, i);
if (PARROT_ARG_SLURPY_ARRAY_ISSET(sig_item)){
if (PARROT_ARG_NAME_ISSET(sig_item))
sub->arg_info->named_slurpy = 1;
@@ -881,7 +881,7 @@ The number of optional named arguments
}
else if (PARROT_ARG_NAME_ISSET(sig_item)) {
++i;
- sig_item = VTABLE_get_integer_keyed_int(INTERP, sig, i);;
+ sig_item = VTABLE_get_integer_keyed_int(INTERP, sig, i);
if (PARROT_ARG_OPTIONAL_ISSET(sig_item))
++sub->arg_info->named_optional;
else
View
2  src/runcore/profiling.c
@@ -472,7 +472,7 @@ ARGIN(opcode_t *pc))
}
Profiling_exit_check_SET(runcore);
- runcore->runcore_finish = Parrot_hires_get_time();;
+ runcore->runcore_finish = Parrot_hires_get_time();
return pc;
}
View
2  t/steps/auto/format-01.t
@@ -99,7 +99,7 @@ $step = test_step_constructor_and_description($conf);
}
{
my $p5format = '%.15' . $conf->data->get('sPRIgldbl_provisional');
- $p5format =~ s/"//g;; # Perl 5's Config value has embedded double quotes
+ $p5format =~ s/"//g; # Perl 5's Config value has embedded double quotes
$conf->data->set( nv => 'long double' );
eval {
auto::format::_set_floatvalfmt_nvsize($conf);
View
6 t/steps/auto/inline-01.t
@@ -68,7 +68,7 @@ ok($step->_evaluate_inline($conf, $test),
"_evaluate_inline() returned true value");
is($step->result, q{yes}, "Got expected result");
is($conf->data->get( 'inline' ), 1,
- "'inline' attribute has expected value");;
+ "'inline' attribute has expected value");
$conf->replenish($serialized);
@@ -85,7 +85,7 @@ ok($step->_evaluate_inline($conf, $test),
"_evaluate_inline() returned true value");
is($step->result, q{no}, "Got expected result");
is($conf->data->get( 'inline' ), q{},
- "'inline' attribute has expected value");;
+ "'inline' attribute has expected value");
$conf->replenish($serialized);
@@ -105,7 +105,7 @@ $step = test_step_constructor_and_description($conf);
\$stdout
);
ok($ret, "_evaluate_inline() returned true value");
- is($step->result, q{yes}, "Got expected result");;
+ is($step->result, q{yes}, "Got expected result");
is($conf->data->get( 'inline' ), 1,
"'inline' attribute has expected value");
}
View
2  t/steps/init/hints-01.t
@@ -156,7 +156,7 @@ $step = test_step_constructor_and_description($conf);
sub { $ret = $step->runstep($conf); },
\$stdout,
\$stderr,
- );;
+ );
like(
$stdout,
qr/No \Q$hints_file\E found/s,
View
2  t/tools/pmc2cutils/05-gen_c.t
@@ -177,7 +177,7 @@ my ( $tie, $msg, @lines );
capture(
sub { eval { $rv = $self->gen_c(); } },
\$stdout
- );;
+ );
like(
$@,
qr<^cannot find file '.*/src/pmc/default.dump' in path>,
Please sign in to comment.
Something went wrong with that request. Please try again.