diff options
| author | Nigel Taylor <njtaylor0101@gmail.com> | 2012-10-03 23:38:57 +0100 |
|---|---|---|
| committer | Nigel Taylor <njtaylor0101@gmail.com> | 2012-10-03 23:38:57 +0100 |
| commit | eaa9e8d5d8e0dd7ec2271efadb2a69509ba1acea (patch) | |
| tree | ee94aa62de4f3cd181f0e7a710f0b744f2447a70 | |
| parent | 2758eecbd2a75a323847cd8d94038cdba00d71da (diff) | |
| download | get-flash-videos-eaa9e8d5d8e0dd7ec2271efadb2a69509ba1acea.tar.gz | |
In the case of use ... VERSION (); the generated code import(VERSION ())
does not compile removing the () does compile, and matches other cases where
use ... VERSION; occurs in some imported modules.
| -rwxr-xr-x | utils/combine-perl.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/combine-perl.pl b/utils/combine-perl.pl index 49d8dde..c9b4595 100755 --- a/utils/combine-perl.pl +++ b/utils/combine-perl.pl @@ -79,6 +79,7 @@ sub process_file { } else { if(/^\s*use [^ ;(]+((?: |\()[^;]*)?;/) { my $params = defined $1 ? $1 : ""; + $params =~ s/^(\s*[0-9.]+)\s*\(\s*\)\s*$/\1/; if($params !~ /^\s*\(\s*\)\s*$/) { my @items = eval $params; $output .= "BEGIN { $module->import($params); } # (added by $0)\n"; |