--- 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)};