diff options
Diffstat (limited to 'upgrade-templates.pl')
-rw-r--r-- | upgrade-templates.pl | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/upgrade-templates.pl b/upgrade-templates.pl index d6befb4f..807a7f9a 100644 --- a/upgrade-templates.pl +++ b/upgrade-templates.pl @@ -6,17 +6,18 @@ $dirpath ||= 'templates'; &process_dir($dirpath); sub process_dir { - my $dirpath = shift @_; - opendir DIR, $dirpath || die "can't open dir $dirpath for reading:$!"; - my @entries = readdir DIR; - closedir DIR; - for $entry(@entries){ - my $path = "$dirpath/$entry"; - if (-d $path && $entry !~ /^\./){ - &process_dir($path); - } elsif ($entry !~ /^\./){ - print "Processing path $path\n"; - `perl -ibak -pe 's|\<\%(.*)\%\>|<?lsmb \$1 ?>|g' $path` - } - } + my $dirpath = shift @_; + opendir DIR, $dirpath || die "can't open dir $dirpath for reading:$!"; + my @entries = readdir DIR; + closedir DIR; + for $entry (@entries) { + my $path = "$dirpath/$entry"; + if ( -d $path && $entry !~ /^\./ ) { + &process_dir($path); + } + elsif ( $entry !~ /^\./ ) { + print "Processing path $path\n"; + `perl -ibak -pe 's|\<\%(.*)\%\>|<?lsmb \$1 ?>|g' $path`; + } + } } |