fix package creation / editing errors, RT#33363, fallout from #27943

diff --git a/FS/FS/o2m_Common.pm b/FS/FS/o2m_Common.pm
index 4848649..d237bef 100644 (file)
--- a/FS/FS/o2m_Common.pm
+++ b/FS/FS/o2m_Common.pm
@@ -131,8 +131,8 @@ sub process_o2m {
   '';
 }
 
-sub process_o2m_qsearch  { shift->qsearch( @_  ); }
-sub process_o2m_qsearchs { shift->qsearchs( @_ ); }
+sub process_o2m_qsearch  { my $self = shift; qsearch(  @_ ); }
+sub process_o2m_qsearchs { my $self = shift; qsearchs( @_ ); }
 
 sub _load_table {
   my( $self, $table ) = @_;