FIX NEXT-UNIQUE-NAME

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 0a588fad818beb66be9fe64b0cb57f6237d6e18f..7bc98c521155626176f8838b45aedaaa6fce379b 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -303,6 +303,12 @@ sub get_filecontents ($;$) {
 
 #---------- stashed files ----------
 
+sub next_unique_name ($) {
+    my ($fnref) = @_;
+    my $num = $$fnref =~ s/\+([1-9]\d*)$// ? $1 : 0;
+    $$fnref .= '+'.($num+1);
+}
+
 sub open_unique_stashfile ($) {
     my ($leafref) = @_;
     my $dh;
@@ -639,12 +645,6 @@ sub target_file_exists ($$) {
     die "$rfile $out ?";
 }
 
-sub next_unique_name ($) {
-    my ($fnref) = @_;
-    my $num = $$fnref =~ s/\+([1-9]\d*)$// ? $1 : 0;
-    $$fnref .= '+'.($num+1);
-}
-
 our $target_editfile_cancel_exception =
     bless { }, 'Osstest::TestSupport::TargetEditfileCancelException';