[svn:parrot] r48028 - in trunk: config/gen lib/Parrot/Configure/Options/Conf lib/Pod/Simple src src/dynpmc src/pmc src/runcore t/steps/auto t/steps/init t/tools/pmc2cutils
Util at svn.parrot.org
Util at svn.parrot.org
Wed Jul 7 12:45:51 UTC 2010
Author: Util
Date: Wed Jul 7 12:45:50 2010
New Revision: 48028
URL: https://trac.parrot.org/parrot/changeset/48028
Log:
Remove extraneous semicolons
Modified:
trunk/config/gen/core_pmcs.pm
trunk/lib/Parrot/Configure/Options/Conf/File.pm
trunk/lib/Pod/Simple/Search.pm
trunk/src/dynpmc/rational.pmc
trunk/src/oo.c
trunk/src/pmc/hash.pmc
trunk/src/pmc/sub.pmc
trunk/src/runcore/profiling.c
trunk/t/steps/auto/format-01.t
trunk/t/steps/auto/inline-01.t
trunk/t/steps/init/hints-01.t
trunk/t/tools/pmc2cutils/05-gen_c.t
Modified: trunk/config/gen/core_pmcs.pm
==============================================================================
--- trunk/config/gen/core_pmcs.pm Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/config/gen/core_pmcs.pm Wed Jul 7 12:45:50 2010 (r48028)
@@ -76,7 +76,7 @@
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 );
Modified: trunk/lib/Parrot/Configure/Options/Conf/File.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Options/Conf/File.pm Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/lib/Parrot/Configure/Options/Conf/File.pm Wed Jul 7 12:45:50 2010 (r48028)
@@ -73,7 +73,7 @@
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_steps {
- my ($data, $steps, $optsref) = @_;;
+ my ($data, $steps, $optsref) = @_;
my @steplines = split /\n/, $steps;
my @steps_list = ();
LINE: foreach my $line (@steplines) {
Modified: trunk/lib/Pod/Simple/Search.pm
==============================================================================
--- trunk/lib/Pod/Simple/Search.pm Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/lib/Pod/Simple/Search.pm Wed Jul 7 12:45:50 2010 (r48028)
@@ -353,7 +353,7 @@
}
pop @$modname_bits;
return;
- };;
+ };
local $_;
$recursor->($startdir, '');
Modified: trunk/src/dynpmc/rational.pmc
==============================================================================
--- trunk/src/dynpmc/rational.pmc Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/src/dynpmc/rational.pmc Wed Jul 7 12:45:50 2010 (r48028)
@@ -541,7 +541,7 @@
*/
VTABLE PMC *add_int(INTVAL value, PMC* dest) {
- dest = STATICSELF.clone();;
+ dest = STATICSELF.clone();
rat_add_integer(INTERP, dest, (int) value);
return dest;
}
Modified: trunk/src/oo.c
==============================================================================
--- trunk/src/oo.c Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/src/oo.c Wed Jul 7 12:45:50 2010 (r48028)
@@ -438,7 +438,7 @@
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);
Modified: trunk/src/pmc/hash.pmc
==============================================================================
--- trunk/src/pmc/hash.pmc Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/src/pmc/hash.pmc Wed Jul 7 12:45:50 2010 (r48028)
@@ -1104,7 +1104,7 @@
*/
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));
Modified: trunk/src/pmc/sub.pmc
==============================================================================
--- trunk/src/pmc/sub.pmc Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/src/pmc/sub.pmc Wed Jul 7 12:45:50 2010 (r48028)
@@ -872,7 +872,7 @@
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 @@
}
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
Modified: trunk/src/runcore/profiling.c
==============================================================================
--- trunk/src/runcore/profiling.c Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/src/runcore/profiling.c Wed Jul 7 12:45:50 2010 (r48028)
@@ -472,7 +472,7 @@
}
Profiling_exit_check_SET(runcore);
- runcore->runcore_finish = Parrot_hires_get_time();;
+ runcore->runcore_finish = Parrot_hires_get_time();
return pc;
}
Modified: trunk/t/steps/auto/format-01.t
==============================================================================
--- trunk/t/steps/auto/format-01.t Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/t/steps/auto/format-01.t Wed Jul 7 12:45:50 2010 (r48028)
@@ -99,7 +99,7 @@
}
{
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);
Modified: trunk/t/steps/auto/inline-01.t
==============================================================================
--- trunk/t/steps/auto/inline-01.t Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/t/steps/auto/inline-01.t Wed Jul 7 12:45:50 2010 (r48028)
@@ -68,7 +68,7 @@
"_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 @@
"_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 @@
\$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");
}
Modified: trunk/t/steps/init/hints-01.t
==============================================================================
--- trunk/t/steps/init/hints-01.t Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/t/steps/init/hints-01.t Wed Jul 7 12:45:50 2010 (r48028)
@@ -156,7 +156,7 @@
sub { $ret = $step->runstep($conf); },
\$stdout,
\$stderr,
- );;
+ );
like(
$stdout,
qr/No \Q$hints_file\E found/s,
Modified: trunk/t/tools/pmc2cutils/05-gen_c.t
==============================================================================
--- trunk/t/tools/pmc2cutils/05-gen_c.t Wed Jul 7 11:55:28 2010 (r48027)
+++ trunk/t/tools/pmc2cutils/05-gen_c.t Wed Jul 7 12:45:50 2010 (r48028)
@@ -177,7 +177,7 @@
capture(
sub { eval { $rv = $self->gen_c(); } },
\$stdout
- );;
+ );
like(
$@,
qr<^cannot find file '.*/src/pmc/default.dump' in path>,
More information about the parrot-commits
mailing list