[perl-ldap-checkins] CVS: asn/t funcs.pl,1.5,1.6

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/asn/t
In directory sc8-pr-cvs1:/tmp/cvs-serv10532/t

Modified Files:
	funcs.pl 
Log Message:
Skip rtest if Data::Dumper is not available


Index: funcs.pl
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/funcs.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- funcs.pl	7 May 2003 15:13:28 -0000	1.5
+++ funcs.pl	12 May 2003 17:06:10 -0000	1.6
@@ -34,11 +34,15 @@
   $_[1]
 }
 
-use Data::Dumper;
 
 sub rtest ($$$) {
+  unless (eval { require Data::Dumper } ) {
+    print "ok $_[0] # skip need Data::Dumper\n";
+    return;
+  }
+
   local $Data::Dumper::Sortkeys = 1;
-  my $ok = Dumper($_[1]) eq Dumper($_[2]);
+  my $ok = Data::Dumper::Dumper($_[1]) eq Data::Dumper::Dumper($_[2]);
 
   unless ($ok) {
     printf "#line %d %s\n",(caller)[2,1];