Changeset 940

Timestamp:

10/31/07 07:08:20 (6 years ago)

Author:

miyagawa

Message:

skip Kwalify validation if it's not available

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/ConfigLoader.pm (modified) (2 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/ConfigLoader.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use Kwalify    ();
 use YAML::Syck ();
 use Storable;
 use Mobirc::Util;
 use Encode;
+
+our $HasKwalify;
+eval {
+    require Kwalify;
+    $HasKwalify++;
+};
 
 my $schema = {
@@ -120 +125 @@
     }
 
-    my $res = Kwalify::validate( $schema, $config );
-    unless ( $res == 1 ) {
-        die "config.yaml validation error : $res";
+    if ($HasKwalify) {
+        my $res = Kwalify::validate( $schema, $config );
+        unless ( $res == 1 ) {
+            die "config.yaml validation error : $res";
+        }
+    } else {
+        warn "Kwalify is not installed. Skipping the config validation." if $^W;
     }