From 7fcfc09669cb326b71f7faa2e1d012ff6690b640 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Tue, 18 Dec 2007 13:59:10 -0500 Subject: [PATCH] Win32 support: Stripped ^M line endings and various other housekeeping. Signed-off-by: Galen Charlton --- fix-perl-path.PL | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/fix-perl-path.PL b/fix-perl-path.PL index 222ff8d34f..dbe7403717 100644 --- a/fix-perl-path.PL +++ b/fix-perl-path.PL @@ -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); - -- 2.20.1