File fix-perl.patch of Package clanlib1

Overview Repositories Revisions Requests Users Attributes Meta

File fix-perl.patch of Package clanlib1

diff -Nur ClanLib-1.0.0/Documentation/Reference/pce2.in new/Documentation/Reference/pce2.in
--- ClanLib-1.0.0/Documentation/Reference/pce2.in	2006-10-27 03:55:01.000000000 +0200
+++ new/Documentation/Reference/pce2.in	2021-04-06 18:44:41.030290619 +0200
@@ -647,10 +647,10 @@
 sub procNamespace {
   my($env,$block,$com)=@_;
   $block=~s/^\s+//;
-  if ($block=~/^namespace\s+(\S+)\s*{/) { 
+  if ($block=~/^namespace\s+(\S+)\s*\{/) { 
     $env=Namespace::new($env,"$1",$com);
   }
-  elsif ($block=~/^namespace\s*{/) { 
+  elsif ($block=~/^namespace\s*\{/) { 
     $env=$::anonymous; 
   }
   elsif ($block=~/^namespace\s+\S+\s*=\s*\S+\s*;/) { 
@@ -667,13 +667,13 @@
 sub procClass {
   my($env,$block,$com)=@_;
 
-  if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*){/) { 
+  if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*)\{/) { 
     $env=Class::new($env,$2,$com,$1,$3);
   }
-  elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*{/) { 
+  elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*\{/) { 
     $env=Class::new($env,$2,$com,$1);
   }
-  elsif ($block=~/^\s*(union|struct)\s*{/) { 
+  elsif ($block=~/^\s*(union|struct)\s*\{/) { 
     # anonymous union (do nothing)
     &parse($env,&extract($block,"{","}"));
     return "";
@@ -782,7 +782,7 @@
 
 sub procExtern {
   my($env,$block,$com)=@_;
-  if ($block=~/^\s*extern\s*%%QUOTDC%%QUOTD\s*{/) {
+  if ($block=~/^\s*extern\s*%%QUOTDC%%QUOTD\s*\{/) {
     &parse($env,&extract($block,"{","}"));
     return "";
   }
@@ -1105,7 +1105,7 @@
 sub alter {
   my $self=shift;
   my $str=shift;
-  $str=~s/\${/\$\$self{/g;
+  $str=~s/\$\{/\$\$self\{/g;
   $str=~s/\\n/\n/g;
   $str=~s/"/\\"/g;
   eval("\$str=\"$str\";");
diff -Nur ClanLib-1.0.0/Documentation/Utilities/webbuilder.pl.in new/Documentation/Utilities/webbuilder.pl.in
--- ClanLib-1.0.0/Documentation/Utilities/webbuilder.pl.in	2006-10-27 03:55:01.000000000 +0200
+++ new/Documentation/Utilities/webbuilder.pl.in	2021-04-06 18:05:30.816437963 +0200
@@ -71,8 +71,7 @@
 	my $ml, $buffer;
 
 	# Don't know what this does, but Perceps does it:
-	if ($*) { $ml=1; }
-	else { $ml=0; }
+	$ml=0;
 	
 	# Read theme from disk and execute it:
 	if ( -e $file )
@@ -96,8 +95,7 @@
 	my $ml, $buffer;
 
 	# Don't know what this does, but Perceps does it:
-	if ($*) { $ml=1; }
-	else { $ml=0; }
+	$ml=0;
 	
 	# Read theme from disk and execute it:
 	if ( -e $file )

Places

File fix-perl.patch of Package clanlib1

Places