|
Lines 446-453
my %config_defaults = (
Link Here
|
| 446 |
|
446 |
|
| 447 |
# set some default configuration options based on OS |
447 |
# set some default configuration options based on OS |
| 448 |
# more conditions need to be added for other OS's |
448 |
# more conditions need to be added for other OS's |
| 449 |
# this should probably also incorporate usage of Win32::GetOSName() and/or Win32::GetOSVersion() |
|
|
| 450 |
# to allow for more granular decisions based on which Win32 platform |
| 451 |
|
449 |
|
| 452 |
warn "Your platform appears to be $^O.\n" if $DEBUG; |
450 |
warn "Your platform appears to be $^O.\n" if $DEBUG; |
| 453 |
|
451 |
|
|
Lines 1379-1386
sub display_configuration {
Link Here
|
| 1379 |
print "perl Makefile.PL\n"; |
1377 |
print "perl Makefile.PL\n"; |
| 1380 |
print "\nor\n\n"; |
1378 |
print "\nor\n\n"; |
| 1381 |
print "DB_USER=my_koha DOC_DIR=/usr/local/info perl Makefile.PL\n\n"; |
1379 |
print "DB_USER=my_koha DOC_DIR=/usr/local/info perl Makefile.PL\n\n"; |
| 1382 |
print "If installing on a Win32 platform, be sure to use:\n"; |
|
|
| 1383 |
print "'dmake -x MAXLINELENGTH=300000'\n\n"; |
| 1384 |
} |
1380 |
} |
| 1385 |
|
1381 |
|
| 1386 |
=head2 find_zebra |
1382 |
=head2 find_zebra |
|
Lines 1388-1395
sub display_configuration {
Link Here
|
| 1388 |
Attempt to find Zebra - check user's PATH and |
1384 |
Attempt to find Zebra - check user's PATH and |
| 1389 |
a few other directories for zebrasrv and zebraidx. |
1385 |
a few other directories for zebrasrv and zebraidx. |
| 1390 |
|
1386 |
|
| 1391 |
FIXME: doesn't handle Win32 |
|
|
| 1392 |
|
| 1393 |
=cut |
1387 |
=cut |
| 1394 |
|
1388 |
|
| 1395 |
sub find_zebra { |
1389 |
sub find_zebra { |
|
Lines 1411-1418
sub find_zebra {
Link Here
|
| 1411 |
|
1405 |
|
| 1412 |
package MY; |
1406 |
package MY; |
| 1413 |
|
1407 |
|
| 1414 |
# This will have to be reworked in order to accommodate Win32... |
|
|
| 1415 |
|
| 1416 |
sub test { |
1408 |
sub test { |
| 1417 |
my $self = shift; |
1409 |
my $self = shift; |
| 1418 |
my $test = $self->SUPER::test(@_); |
1410 |
my $test = $self->SUPER::test(@_); |
| 1419 |
- |
|
|