devel/scanprov: Extract code into a fcn

This is in preparation for it being called from other places

(cherry picked from commit 56bf67b75f766a453aa2373db9f6f09935cbae2e)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/devel/scanprov b/dist/Devel-PPPort/devel/scanprov
index 5ed3de8..4d26550 100755 (executable)
--- a/dist/Devel-PPPort/devel/scanprov
+++ b/dist/Devel-PPPort/devel/scanprov
@@ -120,7 +120,14 @@ for my $v (keys %v) {
   $write and (open F, ">>$file" or die "$file: $!\n");
   for (@new) {
     print "adding $_\n";
-    $write and printf F "%-30s # added by $0\n", $_;
+    $write and print F format_output_line($_);
   }
   $write and close F;
 }
+
+sub format_output_line
+{
+    my $sym = shift;
+
+    return sprintf "%-30s # added by $0\n", $sym;
+}