Remove functions which are not used in the script, these are actually part of the...

[project-aon.git] / common / scripts / fix-image-sizes.pl

diff --git a/common/scripts/fix-image-sizes.pl b/common/scripts/fix-image-sizes.pl
index dc8f55f..78e41a4 100755 (executable)
--- a/common/scripts/fix-image-sizes.pl
+++ b/common/scripts/fix-image-sizes.pl
@@ -1,11 +1,13 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl 
 
+use warnings;
 use strict;
 
 use File::Spec;
 use Image::Size;
 
-my $USAGE = "typical usage:\timage-size.pl *.png <input.xml >output.xml\n";
+my $PROG_NAME = 'fix-image-sizes.pl';
+my $USAGE = "typical usage:\t${PROG_NAME} *.png <input.xml >output.xml\n";
 die $USAGE if $#ARGV < 0;
 
 my %image_widths = ( );