|
Lines 1-6
Link Here
|
| 1 |
--- test.pl.orig 2005-09-28 14:45:55.000000000 +0000 |
1 |
--- test.pl.orig 2014-10-14 17:57:41.459066370 +0600 |
| 2 |
+++ test.pl |
2 |
+++ test.pl 2014-10-14 17:59:37.614059704 +0600 |
| 3 |
@@ -40,6 +40,8 @@ if ($^O =~ /MSWin32/) { |
3 |
@@ -38,6 +38,8 @@ |
| 4 |
$id = $cddb->getdiscid(0); |
4 |
$id = $cddb->getdiscid(0); |
| 5 |
} elsif ($^O =~ /freebsd/) { |
5 |
} elsif ($^O =~ /freebsd/) { |
| 6 |
$id = $cddb->getdiscid('/dev/acd0'); |
6 |
$id = $cddb->getdiscid('/dev/acd0'); |
|
Lines 9-24
Link Here
|
| 9 |
} else { |
9 |
} else { |
| 10 |
$id = $cddb->getdiscid('/dev/cdrom'); |
10 |
$id = $cddb->getdiscid('/dev/cdrom'); |
| 11 |
} |
11 |
} |
| 12 |
@@ -51,6 +53,8 @@ if ($^O =~ /MSWin32/) { |
12 |
@@ -49,6 +51,8 @@ |
| 13 |
$id = Net::FreeDB::getdiscid(0); |
13 |
$id = Net::FreeDB::getdiscid(0); |
| 14 |
} elsif ($^O =~ /freebsd/) { |
14 |
} elsif ($^O =~ /freebsd/) { |
| 15 |
$id = Net::FreeDB::getdiscid('/dev/acd0'); |
15 |
$id = Net::FreeDB::getdiscid('/dev/acd0'); |
| 16 |
+} elsif ($^O =~ /dragonfly/) { |
16 |
+} elsif ($^O =~ /dragonfly/) { |
| 17 |
+ $id = Net::FreeDB::getdiscid('/dev/cd0'); |
17 |
+ $id = Net::FreeDB::getdiscid('/dev/cd0'); |
| 18 |
} else { |
18 |
} else { $id = Net::FreeDB::getdiscid('/dev/cdrom'); |
| 19 |
$id = Net::FreeDB::getdiscid('/dev/cdrom'); |
|
|
| 20 |
} |
19 |
} |
| 21 |
@@ -62,6 +66,8 @@ if ($^O =~ /MSWin32/) { |
20 |
ok($id); |
|
|
21 |
@@ -59,6 +63,8 @@ |
| 22 |
$id = Net::FreeDB::getdiscdata(0); |
22 |
$id = Net::FreeDB::getdiscdata(0); |
| 23 |
} elsif ($^O =~ /freebsd/) { |
23 |
} elsif ($^O =~ /freebsd/) { |
| 24 |
$id = Net::FreeDB::getdiscdata('/dev/acd0'); |
24 |
$id = Net::FreeDB::getdiscdata('/dev/acd0'); |