Re: [mv] Interchange UI problem

[Mike Heins <mikeh@minivend.com>]

******    message to minivend-users from Mike Heins <mikeh@minivend.com>     ******

Quoting Stefan Hornburg (racke@linuxia.de):
> ******    message to minivend-users from Stefan Hornburg <racke@linuxia.de>     ******
> 
> Mike Heins <mikeh@minivend.com> writes:
> 
> 
> [...]
> 
> > > 
> > > After commenting out all lines from Util.pm whose draw DumperX in,
> > > the code works. Fiddling with the UI page tells me that the
> > > problem starts if ->record_exists is included.
> > 
> > This looks like something that would be solved with installation of
> Safe::Hole.
> 
> Safe::Hole is installed (0.06).
> 
> > DumperX should never be looked for unless:
> > 
> > 	1. Storable not used
> 
> Yes.
> 
> > 	2. Data::Dumper on that platform has XS-based Dumper routine.
> 
> Yes too.
> 
> > 
> > Also, is it possible that the mv_data_table is not being included in the
> > [mvasp tables="table"] area?
> 
> No, otherwise the code would break before and would not work if
> DumperX is remove from Util.pm.

Ahh, then there must be a situation where DumperX is included even if
Storable is in there. The easy solution is to invalidate the use of
DumperX if Storable is in use; there is no need for both.

*** /rt/Util.pm	Sun Jul 30 09:36:48 2000
--- /r/Util.pm	Thu Jul 20 03:15:47 2000
***************
*** 478,490 ****
  		import Data::Dumper 'DumperX';
  		$Data::Dumper::Indent = 1;
  		$Data::Dumper::Terse = 1;
- 		if(defined $Fast_uneval) {
- 			$Pretty_uneval = \&Data::Dumper::Dumper;
- 		}
- 		else {
  			$Pretty_uneval = \&Data::Dumper::DumperX;
  			$Fast_uneval = \&Data::Dumper::DumperX
! 		}
  };
  
  *uneval_fast = defined $Fast_uneval       ? $Fast_uneval       : \&uneval_it;
--- 478,486 ----
  		import Data::Dumper 'DumperX';
  		$Data::Dumper::Indent = 1;
  		$Data::Dumper::Terse = 1;
  		$Pretty_uneval = \&Data::Dumper::DumperX;
  		$Fast_uneval = \&Data::Dumper::DumperX
! 			unless defined $Fast_uneval;
  };
  
  *uneval_fast = defined $Fast_uneval       ? $Fast_uneval       : \&uneval_it;

See if that works, then it will go into the distribution.

-- 
Akopia, Inc., 131 Willow Lane, Floor 2, Oxford, OH  45056
phone +1.513.523.8220 fax 7501 <heins@akopia.com>

I don't buy from direct telephone or email marketers.  This makes it
hard for me to find a phone company. ;>
-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list