examples/t.pl: accept optional filename argument

arc · May 6, 2012 · 0522427 · 0522427
1 parent 8d8dfa8
commit 0522427
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/t.pl b/examples/t.pl
@@ -4,7 +4,7 @@
 use Image::EXIF;
 use Data::Dumper;
 
-my $exif = new Image::EXIF("i424f2d1c0.jpg");
+my $exif = new Image::EXIF($ARGV[0] || "i424f2d1c0.jpg");
 
 my $all_info = $exif->get_all_info();