see plug-ins/perl/Changes

plug-ins/perl/Changes

@@ -1,5 +1,6 @@
 Revision history for Gimp-Perl extension.
 
+1.081 Thu May  6 19:33:37 CEST 1999
 	- added "oneliners".
 	- startet implementing Gimp::Module, for embedding perl directly into
 	  the gimp.
@@ -14,6 +15,7 @@ Revision history for Gimp-Perl extension.
         - added embed.
         - improved many parts of the build process.
         - updated ppport.h.
+        - properly localized $_ in all subs.
 
 1.08  Fri Apr  9 03:20:54 CEST 1999
 	- added guidegrid, git-text, roundrectsel, repdup, centerguide,

plug-ins/perl/Gimp/Feature.pm

@@ -42,7 +42,7 @@ sub import {
 
    local $Gimp::in_query=1;
    while(@_) {
-      $_=shift;
+      local $_=shift;
       s/^://;
       need($_);
    }
@@ -57,7 +57,7 @@ sub Gimp::Feature::list {
 }
 
 sub present {
-   $_ = shift;
+   local $_ = shift;
 
    if ($_ eq "gtk") {
       _check_gtk; $gtk;

plug-ins/perl/Gimp/Net.pm

@@ -173,7 +173,7 @@ sub start_server {
 }
 
 sub try_connect {
-   $_=$_[0];
+   local $_=$_[0];
    my $fh;
    $auth = s/^(.*)\@// ? $1 : "";	# get authorization
    if ($_ ne "") {

plug-ins/perl/Makefile.PL

@@ -217,10 +217,10 @@ check :: test
 MY_FIXIN = \$(PERL) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) -MExtUtils::MakeMaker -e 'MY->fixin(\@ARGV)'
 
 all ::
-	$dont_embed || (cd embed && \$(MAKE) all)
+	$main::dont_embed || (cd embed && \$(MAKE) all)
 
 clean ::
-	$dont_embed || (cd embed && \$(MAKE) clean)
+	$main::dont_embed || (cd embed && \$(MAKE) clean)
 	test -f Makefile || mv -f Makefile.old Makefile
 	\$(RM_RF) inst-temp
 
@@ -275,12 +275,11 @@ $GIMP_INC_NOUI = "-I../../ $GIMP_INC_NOUI" if $IN_GIMP;
 if ($IN_GIMP) {
    $dont_embed = "false";
    push(@DIRS,'nolib');
+   system("cd embed && perl Makefile.PL");
 } else {
    $dont_embed = "true";
 }
 
-system("cd embed && perl Makefile.PL");
-
 WriteMakefile(
     'dist'	=> {
 	            PREOP	=> 'chmod -R u=rwX,go=rX . ;',