changed function name to shift_right_rotate

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-059/sangeet-kar/perl/ch-1.pl b/challenge-059/sangeet-kar/perl/ch-1.pl
index 953b6c3ac0..2083625860 100644
--- a/challenge-059/sangeet-kar/perl/ch-1.pl
+++ b/challenge-059/sangeet-kar/perl/ch-1.pl
@@ -52,7 +52,7 @@ sub parent_of_node ($self, $node, $start_node=undef) {
     return $start_node;
 }
 
-sub rotate_right_to_left ($self, $i, $j) {
+sub shift_right_rotate ($self, $i, $j) {
     my $parent_i = $self->parent_of_node($i);
     my $parent_j = $self->parent_of_node($j, $i);
 
@@ -76,7 +76,7 @@ sub partition ($self, $k) {
         my $j = $i->{next_node};
         $j = $j->{next_node} while defined $j && $j->{val} >= $k;
         return unless defined $j;
-        $self->rotate_right_to_left($i, $j);
+        $self->shift_right_rotate($i, $j);
     }
 }