gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Win32 support: Stripped ^M line endings and various other housekeeping. 

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Chris Nighswonger 2007-12-18 13:59:10 -05:00 committed by Galen Charlton
parent b310be2bab
commit 7fcfc09669
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fix-perl-path.PL
View File

@ -1,4 +1,4 @@
#!c:\strawberry-perl\perl\bin\perl
#!/usr/bin/perl
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
@ -25,7 +25,7 @@ my $DEBUG = 1;
$DEBUG = 1 if $basedir eq 'test';
my $bindir = $Config{installbin};
$bindir =~ s!\\!/!g; # make all directory separators uniform...
$bindir =~ s!\\!/!g; # make all directory separators uniform since Win32 does not care and *nix does...
my $shebang = "#!$bindir\/perl -w";
warn "Perl binary located in $bindir on this system.\n" if $DEBUG;
@ -60,7 +60,6 @@ in a manner similar to 'fixshebang (foodir)' but may be supplied with any direct
=cut
sub fixshebang{
# NOTE: this might be dressed up a bit with File::Spec since we're using it here already.
my $dir = shift;
opendir my $dh, $dir or die $!;
warn "Reading $dir contents.\n" if $DEBUG;
@ -106,4 +105,3 @@ sub fixshebang{
fixshebang ($basedir);