Tidy
This commit is contained in:
parent
cf90033fd0
commit
ac6dc67e6a
@ -58,7 +58,7 @@ has 'E' => (is => 'rw', default => sub {0});
|
||||
has 'F' => (is => 'rw', default => sub {0});
|
||||
|
||||
our $Verbose = 0;
|
||||
my @AXES = qw(X Y Z E F);
|
||||
my @AXES = qw(X Y Z E);
|
||||
|
||||
sub parse {
|
||||
my $self = shift;
|
||||
@ -100,7 +100,7 @@ sub parse {
|
||||
|
||||
# update coordinates
|
||||
if ($command =~ /^(?:G[01]|G92)$/) {
|
||||
for (@AXES) {
|
||||
for (@AXES, 'F') {
|
||||
$self->$_($args{$_}) if exists $args{$_};
|
||||
}
|
||||
}
|
||||
|
@ -44,6 +44,6 @@ $config->set('retract_before_travel', [3]);
|
||||
ok $test->(), 'retraction';
|
||||
|
||||
$config->set('retract_restart_extra', [1]);
|
||||
ok $test->(), 'retraction with restart extra length';
|
||||
ok $test->(), 'restart extra length';
|
||||
|
||||
__END__
|
||||
|
Loading…
Reference in New Issue
Block a user