Re: [mv] Interchange UI problem

[Stefan Hornburg <racke@linuxia.de>]

******    message to minivend-users from Stefan Hornburg <racke@linuxia.de>     ******

Mike Heins <mikeh@minivend.com> writes:

> ******    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.

This reads: yes, storable is not used :-)

> > 
> > > 	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;
> 

I'm already using the latter.

Ciao
        Racke

-- 
LinuXia Systems && Cobolt NetServices, eCommerce and more
Shop- und Datenbanklösungen mit MiniVend, Firewalls auf Debian-Basis
http://www.linuxia.de - http://www.cobolt.net
--> Coding from hell and back <--- 
-
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