diff -ru Net-CUPS-0.41-orig/Protocol/Protocol_constant_c.inc Net-CUPS-0.41/Protocol/Protocol_constant_c.inc
--- Net-CUPS-0.41-orig/Protocol/Protocol_constant_c.inc	2006-08-06 21:12:26.000000000 -0400
+++ Net-CUPS-0.41/Protocol/Protocol_constant_c.inc	2006-08-06 21:16:49.000000000 -0400
@@ -1096,15 +1096,6 @@
     }
     break;
   case '_':
-    if (memEQ(name, "CUPS_ADD_DEVICE", 15)) {
-    /*                       ^             */
-
-      *iv_return = CUPS_ADD_DEVICE;
-      return PERL_constant_ISIV;
-
-      
-
-    }
     if (memEQ(name, "HTTP_MAX_BUFFER", 15)) {
     /*                       ^             */
 
@@ -1706,15 +1697,6 @@
     }
     break;
   case '_':
-    if (memEQ(name, "CUPS_DELETE_DEVICE", 18)) {
-    /*                          ^             */
-
-      *iv_return = CUPS_DELETE_DEVICE;
-      return PERL_constant_ISIV;
-
-      
-
-    }
     if (memEQ(name, "HTTP_ENCODE_LENGTH", 18)) {
     /*                          ^             */
 
@@ -3153,8 +3135,8 @@
 use ExtUtils::Constant qw (constant_types C_constant XS_constant);
 
 my $types = {map {($_, 1)} qw(IV)};
-my @names = (qw(CUPS_ACCEPT_JOBS CUPS_ADD_CLASS CUPS_ADD_DEVICE
-	       CUPS_ADD_PRINTER CUPS_DELETE_CLASS CUPS_DELETE_DEVICE
+my @names = (qw(CUPS_ACCEPT_JOBS CUPS_ADD_CLASS
+	       CUPS_ADD_PRINTER CUPS_DELETE_CLASS
 	       CUPS_DELETE_PRINTER CUPS_GET_CLASSES CUPS_GET_DEFAULT
 	       CUPS_GET_DEVICES CUPS_GET_PPDS CUPS_GET_PRINTERS CUPS_MOVE_JOB
 	       CUPS_REJECT_JOBS CUPS_SET_DEFAULT HTTP_0_9 HTTP_1_0 HTTP_1_1
diff -ru Net-CUPS-0.41-orig/Protocol/Protocol.pm Net-CUPS-0.41/Protocol/Protocol.pm
--- Net-CUPS-0.41-orig/Protocol/Protocol.pm	2006-08-06 21:12:26.000000000 -0400
+++ Net-CUPS-0.41/Protocol/Protocol.pm	2006-08-06 21:13:40.000000000 -0400
@@ -20,10 +20,8 @@
 our @EXPORT = qw(
 					CUPS_ACCEPT_JOBS 
 					CUPS_ADD_CLASS 
-					CUPS_ADD_DEVICE
 					CUPS_ADD_PRINTER 
 					CUPS_DELETE_CLASS 
-					CUPS_DELETE_DEVICE
 					CUPS_DELETE_PRINTER 
 					CUPS_GET_CLASSES 
 					CUPS_GET_DEFAULT