Lines 1-6
Link Here
|
1 |
diff -urN Net-FreeDB-0.06/FreeDB.pm roam/FreeDB.pm |
1 |
--- FreeDB.pm.orig Tue Jan 3 08:58:51 2006 |
2 |
--- FreeDB.pm Wed Mar 20 22:19:50 2002 |
2 |
+++ FreeDB.pm Sun Jun 18 19:50:43 2006 |
3 |
+++ FreeDB.pm Mon Oct 17 13:03:00 2005 |
|
|
4 |
@@ -1,6 +1,6 @@ |
3 |
@@ -1,6 +1,6 @@ |
5 |
package Net::FreeDB; |
4 |
package Net::FreeDB; |
6 |
|
5 |
|
Lines 9-26
Link Here
|
9 |
use strict; |
8 |
use strict; |
10 |
use warnings; |
9 |
use warnings; |
11 |
use IO::Socket; |
10 |
use IO::Socket; |
12 |
@@ -13,7 +13,9 @@ |
11 |
@@ -13,7 +13,8 @@ |
13 |
require DynaLoader; |
12 |
require DynaLoader; |
14 |
use AutoLoader; |
13 |
use AutoLoader; |
15 |
|
14 |
|
16 |
-our @ISA = qw(Exporter DynaLoader Net::Cmd IO::Socket::INET); |
15 |
-our @ISA = qw(Exporter DynaLoader Net::Cmd IO::Socket::INET); |
17 |
+use vars qw/@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION $ERROR/; |
16 |
+use vars qw/@ISA %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION $ERROR/; |
18 |
+ |
|
|
19 |
+@ISA = qw(Exporter DynaLoader Net::Cmd IO::Socket::INET); |
17 |
+@ISA = qw(Exporter DynaLoader Net::Cmd IO::Socket::INET); |
20 |
|
18 |
|
21 |
# Items to export into callers namespace by default. Note: do not export |
19 |
# Items to export into callers namespace by default. Note: do not export |
22 |
# names by default without a very good reason. Use EXPORT_OK instead. |
20 |
# names by default without a very good reason. Use EXPORT_OK instead. |
23 |
@@ -22,22 +24,21 @@ |
21 |
@@ -22,22 +23,21 @@ |
24 |
# This allows declaration use Net::FreeDB ':all'; |
22 |
# This allows declaration use Net::FreeDB ':all'; |
25 |
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK |
23 |
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK |
26 |
# will save memory. |
24 |
# will save memory. |
Lines 33-40
Link Here
|
33 |
-our @EXPORT = qw(); |
31 |
-our @EXPORT = qw(); |
34 |
+@EXPORT = qw(); |
32 |
+@EXPORT = qw(); |
35 |
|
33 |
|
36 |
-our $VERSION = '0.06'; |
34 |
-our $VERSION = '0.07'; |
37 |
+$VERSION = '0.06'; |
35 |
+$VERSION = '0.07'; |
38 |
|
36 |
|
39 |
-our $ERROR; |
37 |
-our $ERROR; |
40 |
sub AUTOLOAD { |
38 |
sub AUTOLOAD { |
Lines 48-57
Link Here
|
48 |
($constname = $AUTOLOAD) =~ s/.*:://; |
46 |
($constname = $AUTOLOAD) =~ s/.*:://; |
49 |
croak "& not defined" if $constname eq 'constant'; |
47 |
croak "& not defined" if $constname eq 'constant'; |
50 |
my $val = constant($constname, @_ ? $_[0] : 0); |
48 |
my $val = constant($constname, @_ ? $_[0] : 0); |
51 |
diff -urN Net-FreeDB-0.06/FreeDB.xs.linux roam/FreeDB.xs.linux |
49 |
--- FreeDB.xs.linux.orig Mon Oct 17 07:11:29 2005 |
52 |
--- FreeDB.xs.linux Wed Mar 20 22:19:50 2002 |
50 |
+++ FreeDB.xs.linux Sun Jun 18 19:53:17 2006 |
53 |
+++ FreeDB.xs.linux Mon Oct 17 12:09:00 2005 |
51 |
@@ -38,7 +38,8 @@ |
54 |
@@ -36,7 +38,8 @@ |
|
|
55 |
RETVAL |
52 |
RETVAL |
56 |
|
53 |
|
57 |
char* |
54 |
char* |
Lines 61-67
Link Here
|
61 |
INIT: |
58 |
INIT: |
62 |
int i; |
59 |
int i; |
63 |
char id[30]; |
60 |
char id[30]; |
64 |
@@ -54,7 +57,8 @@ |
61 |
@@ -56,7 +57,8 @@ |
65 |
RETVAL |
62 |
RETVAL |
66 |
|
63 |
|
67 |
SV* |
64 |
SV* |
Lines 71-79
Link Here
|
71 |
INIT: |
68 |
INIT: |
72 |
int i; |
69 |
int i; |
73 |
char id[30]; |
70 |
char id[30]; |
74 |
diff -urN Net-FreeDB-0.06/lib/discid.h roam/lib/discid.h |
71 |
--- lib/discid.h.orig Wed Sep 28 08:45:55 2005 |
75 |
--- lib/discid.h Mon Oct 17 13:05:09 2005 |
72 |
+++ lib/discid.h Sun Jun 18 19:54:13 2006 |
76 |
+++ lib/discid.h Mon Oct 17 12:00:02 2005 |
|
|
77 |
@@ -39,6 +39,7 @@ |
73 |
@@ -39,6 +39,7 @@ |
78 |
|
74 |
|
79 |
#ifdef __FreeBSD__ |
75 |
#ifdef __FreeBSD__ |