+++ /dev/null
-#!/usr/bin/perl
-# UCW Gallery: Extract image list from GQview collection
-# (c) 2004--2012 Martin Mares <mj@ucw.cz>
-
-use strict;
-use warnings;
-
-while (<>) {
- chomp;
- /^#/ && next;
- /^$/ && next;
- if (/^"(.*)"$/) {
- print "$1\n";
- } else {
- die "Error parsing collection: $_";
- }
-}
--- /dev/null
+#!/usr/bin/perl
+# UCW Gallery: Extract image list from GQview collection
+# (c) 2004--2012 Martin Mares <mj@ucw.cz>
+
+use strict;
+use warnings;
+
+while (<>) {
+ chomp;
+ /^#/ && next;
+ /^$/ && next;
+ if (/^"(.*)"$/) {
+ print "$1\n";
+ } else {
+ die "Error parsing collection: $_";
+ }
+}