diff --git a/lib/Slic3r/ExPolygon.pm b/lib/Slic3r/ExPolygon.pm
index 3056d7053..56dc5841c 100644
--- a/lib/Slic3r/ExPolygon.pm
+++ b/lib/Slic3r/ExPolygon.pm
@@ -128,16 +128,6 @@ sub encloses_line {
     }
 }
 
-sub point_on_segment {
-    my $self = shift;
-    my ($point) = @_;
-    for (@$self) {
-        my $line = $_->point_on_segment($point);
-        return $line if $line;
-    }
-    return undef;
-}
-
 sub bounding_box {
     my $self = shift;
     return $self->contour->bounding_box;
diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm
index c69b9e00b..724887988 100644
--- a/lib/Slic3r/Polygon.pm
+++ b/lib/Slic3r/Polygon.pm
@@ -56,12 +56,6 @@ sub remove_acute_vertices {
     bless $_, 'Slic3r::Point' for @$self;
 }
 
-sub point_on_segment {
-    my $self = shift;
-    my ($point) = @_;
-    return polygon_segment_having_point($self, $point);
-}
-
 sub encloses_point {
     my $self = shift;
     my ($point) = @_;