package Debug;{ 
	use Readonly;	sub RO(\[$@%]@) {goto &Readonly};
	use Exporter 'import';
	our @ISA = qw (Exporter);
	our @EXPORT=qw( Debug DEBUG_OPS $Filename2Fields $Halt_on_Error);

	my %dop = (
		Filename2Fields	=>	1,
		HaltOnError			=>	2,
	);

	sub _flagval { return $dop{$_[0]} }

	our $Filename2Fields	= $dop{Filename2Fields};
	our $HaltOnError			= $dop{HaltOnError};
	our $DEBUG_OPS				= 0 
												| $Filename2Fields
												| $HaltOnError
												;
						
	sub Debug($$) {
		my ($what,  $str)=@_;
		if ($what & $DEBUG_OPS) { print STDERR $str; }
	}
}
;
package Transcode_plug;{
	import Debug qw{Filename2Fields};
	BEGIN {*Filename2Fields = \$Debug::Filename2Fields;}
	import Vars;
	use Exporter;
	our @ISA = qw(Exporter);
	our @EXPORT=qw( album album_artist artist freeDB_DiskID 
									genre trknum trktitle year push_arginfo 
									get_bin_path  ); 


	
	sub get_fieldAR_from_filename($) {
		my $file=$_[0];
		Debug($Filename2Fields,"get_fieldAR_from_filename($file)\n");   <<----------    # line 119
		my ($trknum, $trktitle, $artist, $album_artist, 
				$genre, $year,$freeDB_DiscID);
		my ($rest,$tt_a, $aa_g_y);