Description: The module provides several example scripts written in Perl
 that have missing or incorrect shebang lines. This patch adds or changes
 shebangs to #!/usr/bin/perl in order to comply with Debian Policy.
Bug-Debian: http://bugs.debian.org/543659
Forwarded: not-needed
Author: Ernesto Hernández-Novich <emhn@usb.ve>
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2014-10-22

--- a/examples/calcSizes.pl
+++ b/examples/calcSizes.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # Example of how to compute compressed sizes
 # $Revision: 1.2 $
 use strict;
--- a/examples/copy.pl
+++ b/examples/copy.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # Copies a zip file to another.
 # Usage:
 # perl copy.pl input.zip output.zip
--- a/examples/extract.pl
+++ b/examples/extract.pl
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/perl -w
 # Extracts the named files into 'extractTest' subdir
 # usage:
 #	perl extract.pl [-j] zipfile.zip filename [...]
--- a/examples/mfh.pl
+++ b/examples/mfh.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # Prints messages on every chunk write.
 # Usage:
 # perl mfh.pl zipfile.zip
--- a/examples/selfex.pl
+++ b/examples/selfex.pl
@@ -1,4 +1,4 @@
-#/usr/bin/perl -w
+#!/usr/bin/perl -w
 #
 # Shows one way to write a self-extracting archive file.
 # This is not intended for production use, and it always extracts to a
@@ -44,7 +44,7 @@
 
 # below the __DATA__ line is the extraction stub:
 __DATA__
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 # Self-extracting Zip file extraction stub
 # Copyright (C) 2002 Ned Konz
 
--- a/examples/unzipAll.pl
+++ b/examples/unzipAll.pl
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/perl -w
 # Extracts all files from the given zip
 # $Revision: 1.3 $
 # usage:
--- a/examples/updateTree.pl
+++ b/examples/updateTree.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # Shows how to update a Zip in place using a temp file.
 #
 # usage:
--- a/examples/updateZip.pl
+++ b/examples/updateZip.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 # Shows how to update a Zip in place using a temp file.
 # $Revision: 1.1 $
 #
--- a/examples/zipcheck.pl
+++ b/examples/zipcheck.pl
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/perl -w
 # usage: valid zipname.zip
 # exits with non-zero status if invalid zip
 # status = 1: invalid arguments
--- a/examples/zipinfo.pl
+++ b/examples/zipinfo.pl
@@ -1,4 +1,4 @@
-#! /usr/bin/perl -w
+#!/usr/bin/perl -w
 # Print out information about a ZIP file.
 # Note that this buffers the entire file into memory!
 # usage:
--- a/examples/zip.pl
+++ b/examples/zip.pl
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/perl -w
 # Creates a zip file, adding the given directories and files.
 # Usage:
 #	perl zip.pl zipfile.zip file [...]
--- a/examples/ziptest.pl
+++ b/examples/ziptest.pl
@@ -1,4 +1,4 @@
-#!/bin/perl -w
+#!/usr/bin/perl -w
 # $Revision: 1.7 $
 # Lists the zipfile given as a first argument and tests CRC's.
 # Usage: