Project Aon Git Repositories
/
project-aon.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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 = ( );
die $USAGE if $#ARGV < 0;
my %image_widths = ( );