Beh pohyblivý typ 5.2 + s perlbrew perl a starman - perl, movabletype, perlbrew

CGI skripty a nástroje, ktoré obsahujú movabletype majú perl binárne meno hard-kódované

#!/usr/bin/perl -w

Pokiaľ manuálne nezmením všetky tieto inštancie

#!/usr/bin/env perl
use warnings;

zdá sa nemožné spustiť pohyblivý typ pod mojímsúkromná verzia perl (nainštalovaná s perlbrew). Existuje nejaký spôsob, ako môžem spustiť pohyblivý typ pod perlbrew perl bez vykonania týchto zmien ručne?

odpovede:

... napíšte program na zmenu pre vás?

#! /usr/bin/env perl
use common::sense;
use Tie::File;

tie my @f, "Tie::File", shift or die $!;
if ($f[0] =~ m,#! */usr/bin/perl( -w)?,) {
$f[0] = "#! /usr/bin/env perl";
splice @f, 1, 0, "use warnings;" if $1
}
untie @f;

Somethin "rád.