diff --git a/C4/Ris.pm b/C4/Ris.pm
index 2303fc261c..0932cbfdbc 100644
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -558,6 +558,7 @@ $clean_subtitle ||= q{};
 	## be written and designated. The field is free-form and resistant
 	## to all parsing efforts, so this information is lost on me
     }
+    return;
 }
 
 ##********************************************************************
@@ -590,6 +591,7 @@ sub print_stitle {
 	    }
 	}
     }
+    return;
 }
 
 ##********************************************************************
diff --git a/t/Ris.t b/t/Ris.t
index 0840e2cbf1..c11b1f59b5 100755
--- a/t/Ris.t
+++ b/t/Ris.t
@@ -3,15 +3,15 @@
 # This Koha test module is a stub!  
 # Add more tests here!!!
 
-use strict;
-use warnings;
+use Modern::Perl;
 
+use t::lib::Mocks;
 use Test::More tests => 4;
 
 BEGIN {
-        use_ok('C4::Ris');
+    use_ok('C4::Ris');
 }
-
+t::lib::Mocks::mock_preference('marcflavour', 'MARC21');
 is(C4::Ris::print_typetag(),undef,'test printing typetag');
 
 is(C4::Ris::print_title(),undef, 'test printing title when print_title is nil');