Fix shebang in perl scripts

Instead of hardcoding the location of perl (assuming it is installed in
/usr), use /usr/bin/env to run it, and thus picking it from $PATH.
This makes it possible to run these scripts also on installations with
perl in a different prefix than /usr.

Also, given that we want enable warnings on scripts, turn the -w
previously in shebang to explicit "use warnings;" in scripts which
didn't have it before.

contrib/windows-icons.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2012 Red Hat Inc.
 #
@@ -24,6 +24,7 @@
 #   ./run ./contrib/windows-icons.pl /path/to/windows-disk.img
 
 use strict;
+use warnings;
 
 use Sys::Guestfs;
 use File::Temp qw{tempdir};

examples/guestfs-performance.pod

@@ -322,10 +322,11 @@ L<http://rwmj.wordpress.com/2013/02/25/multiple-libguestfs-appliances-in-paralle
 L<http://rwmj.wordpress.com/2013/02/25/multiple-libguestfs-appliances-in-parallel-part-3/>
 L<http://rwmj.wordpress.com/2013/02/25/multiple-libguestfs-appliances-in-parallel-part-4/>
 
- #!/usr/bin/perl -w
+ #!/usr/bin/env perl
  
  use strict;
  use threads;
+ use warnings;
  use Sys::Guestfs;
  use Time::HiRes qw(time);
  

generator/bindtests.ml

@@ -370,11 +370,12 @@ let () =
   pr "print_endline \"EOF\"\n"
 
 and generate_perl_bindtests () =
-  pr "#!/usr/bin/perl -w\n";
+  pr "#!/usr/bin/env perl\n";
   generate_header HashStyle GPLv2plus;
 
   pr "\
 use strict;
+use warnings;
 
 use Sys::Guestfs;
 

perl/examples/create_disk.pl

@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 # Example showing how to create a disk image.
 
 use strict;
+use warnings;
 use Sys::Guestfs;
 
 my $output = "disk.img";

perl/examples/inspect_vm.pl

@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 # Example showing how to inspect a virtual machine disk.
 
 use strict;
+use warnings;
 use Sys::Guestfs;
 
 if (@ARGV < 1) {

pick-guests.pl.in

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # @configure_input@
 # Copyright (C) 2009-2015 Red Hat Inc.
 #
@@ -20,6 +20,7 @@
 # This is used by 'make check-valgrind-local-guests'.
 
 use strict;
+use warnings;
 
 use Sys::Guestfs;
 use Sys::Virt;

podwrapper.pl.in

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # podwrapper.pl
 # Copyright (C) 2010-2015 Red Hat Inc.
 # @configure_input@

rescue/test-virt-rescue.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2012-2015 Red Hat Inc.
 #
@@ -17,6 +17,7 @@
 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
+use warnings;
 
 my $progname = $0;
 $progname =~ s{.*/}{};

resize/test-virt-resize.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # Copyright (C) 2010-2015 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/bigdirs/test-big-dirs.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/btrfs/test-btrfs-misc.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2013 Red Hat Inc.
 #

tests/btrfs/test-btrfs-subvolume-default.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2012 Red Hat Inc.
 #

tests/daemon/test-btrfs.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2015 Red Hat Inc.
 #

tests/daemon/test-daemon-start.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2015 Red Hat Inc.
 #

tests/discard/test-blkdiscard.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2014 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/discard/test-discard.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2014 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/discard/test-fstrim.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2014 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/disk-labels/test-disk-labels.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/disks/test-max-disks.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/events/test-console-debug.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2013 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/fuzz/fuzz-inspection.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # Fuzz-test libguestfs inspection.
 # Copyright (C) 2013 Red Hat Inc.
 #

tests/guests/guest-aux/make-fedora-img.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2010-2015 Red Hat Inc.
 #

tests/guests/guest-aux/make-guests-all-good.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2013 Red Hat Inc.
 #

tests/hotplug/test-hot-add.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/hotplug/test-hot-remove.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/hotplug/test-hotplug-repeated.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/journal/test-journal.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2013 Red Hat Inc.
 #

tests/lvm/test-lvm-mapping.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2010 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/nbd/test-nbd.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2013 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/protocol/test-launch-race.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2010 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/regressions/test-noexec-stack.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2009 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/selinux/run-test.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/syslinux/test-syslinux.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2013 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/tmpdirs/test-tmpdirs.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify

tests/xfs/test-xfs-misc.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # libguestfs
 # Copyright (C) 2013 Red Hat Inc.
 #

tests/xml/rhbz701814.pl

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # Copyright (C) 2012 Red Hat Inc.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -19,6 +19,7 @@
 # https://bugzilla.redhat.com/show_bug.cgi?id=701814
 
 use strict;
+use warnings;
 
 use Sys::Guestfs;
 

tools/virt-list-filesystems

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # virt-list-filesystems
 # Copyright (C) 2009-2015 Red Hat Inc.
 #

tools/virt-list-partitions

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # virt-list-partitions
 # Copyright (C) 2010 Red Hat Inc.
 #

tools/virt-tar

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # virt-tar
 # Copyright (C) 2009-2015 Red Hat Inc.
 #

tools/virt-win-reg

@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # virt-win-reg
 # Copyright (C) 2010 Red Hat Inc.
 #