--- a/libpurple/plugins/perl/common/fallback/const-c.inc Sat Jan 05 18:36:23 2008 +0000 +++ b/libpurple/plugins/perl/common/fallback/const-c.inc Sat Jan 05 18:41:33 2008 +0000 @@ -33,7 +33,7 @@ Regenerate these constant functions by feeding this entire source file to perl -x -#!/usr/bin/perl -w +#!/usr/bin/env perl -w use ExtUtils::Constant qw (constant_types C_constant XS_constant); my $types = {map {($_, 1)} qw(IV)};