Changeset 14658

Timestamp:

Aug 23, 2007, 2:58:50 PM (19 years ago)

Author:

Paul Price

Message:

Fixing type check.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.64 2007-08-21 01:53:13 price Exp $
+# $Id: Config.pm,v 1.65 2007-08-24 00:58:50 price Exp $
 
 package PS::IPP::Config;
@@ -896 +896 @@
     foreach my $item (@$mdc) {
         if ($item->{name} eq $name) {
-            carp "$name within metadata is not of type BOOL.\n" unless $item->{class} eq "bool";
+            carp "$name within metadata is not of type BOOL.\n" unless lc($item->{class}) eq "bool";
             return $item->{value};
         }