1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
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
|
GitWeb
