-#!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
$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;
=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;
fixshebang ($basedir);
-