diff --git a/src/imagery/i.pr/PRLIB/extract_ps.pl b/src/imagery/i.pr/PRLIB/extract_ps.pl index 897d4f0f14..a1d5d09211 100755 --- a/src/imagery/i.pr/PRLIB/extract_ps.pl +++ b/src/imagery/i.pr/PRLIB/extract_ps.pl @@ -1,4 +1,5 @@ #!/usr/local/bin/perl +use strict; opendir DIR, "./"; @files=readdir DIR;