#!/usr/bin/perl -w

use strict;
use Safe;
use WOU_Util;

my $compartment = new Safe;


$compartment->share_from('WOU_Util', [ 'date_compare' ] );
$compartment->permit( qw() );
  
my ($date1, $op, $date2);

$date1 = '01/02/2004';
$date2 = '01/01/2004';
$op    = 'gt';

# this prints
$compartment->reval( "print 'greater' if \"$date1\" $op \"$date2\"" );

$op = '>';
# this doesn't print, throws error
$compartment->reval( "print 'greater' if date_compare(\"$date1\",\"$op\",\"$date2\")" );