aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorzakflash <zakflashvideo@gmail.com>2012-10-04 10:37:00 -0700
committerzakflash <zakflashvideo@gmail.com>2012-10-04 10:37:00 -0700
commitc52cdf6c0f8a4ddf03041505a2094424d9dff2b4 (patch)
treeee94aa62de4f3cd181f0e7a710f0b744f2447a70
parent2758eecbd2a75a323847cd8d94038cdba00d71da (diff)
parenteaa9e8d5d8e0dd7ec2271efadb2a69509ba1acea (diff)
downloadget-flash-videos-c52cdf6c0f8a4ddf03041505a2094424d9dff2b4.tar.gz
Merge pull request #77 from njtaylor/master
Fix compile error in code generated by combine-perl.pl
-rwxr-xr-xutils/combine-perl.pl1
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";