Ticket #160: base.diff

\Base.pm

@@ -3095 +3095 @@
 
     my ($cmd, $arg) = (split(' ', $line, 2), '');
     next unless $cmd =~ /perl/i;
-    my $interpreter = $self->{properties}{perl};
+    my $interpreter;
+    if ($self->is_os2ish) {
+      $interpreter = '/@unixroot/usr/bin/perl';
+    } else {
+      $interpreter = $self->{properties}{perl};
+    }
 
     $self->log_verbose("Changing sharpbang in $file to $interpreter\n");
     my $shb = '';
@@ -3106 +3111 @@
     $shb .= qq{
 eval 'exec $interpreter $arg -S \$0 \${1+"\$\@"}'
     if 0; # not running under some shell
-} unless $self->is_windowsish; # this won't work on win32, so don't
+} unless $self->is_windowsish or $self->is_os2ish; # this won't work on win32, so don't
 
     my $FIXOUT = IO::File->new(">$file.new")
       or die "Can't create new $file: $!\n";