1 files changed, 3 insertions, 0 deletions
diff --git a/rpmdrake.pm b/rpmdrake.pm
index df32922c..e41f0132 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -70,6 +70,7 @@ our @EXPORT = qw(
     update_sources_interactive
     add_medium_and_check
     check_update_media_version
+    strip_first_underscore
 );
 our $typical_width;
 
@@ -773,4 +774,6 @@ sub open_help {
     );
 }
 
+sub strip_first_underscore { join '', map { s/_//; $_ } @_ }
+
 1;