-sub JumpPref {
- my ( $input, $tab, $jumpfield ) = @_;
-
- return ( $tab ) if ( $jumpfield !~ /^[a-zA-Z_0-9-]+$/ );
-
- my %tab_files = _get_pref_files( $input, 1 );
-
- while ( my ( $tab, $tabfile ) = each %tab_files ) {
- while ( <$tabfile> ) {
- return ( $tab, $1 ) if ( /pref: ($jumpfield)/i );
- }
-
- close $tabfile;
- }
-
- return ( "", "" );
-}
-