Change 16469: Stupid Mac::OSA::Simple bugs

Change 16469 by pudge@pudge-mobile on 2002/05/08 03:48:53

	Stupid Mac::OSA::Simple bugs

Affected files ...

.... //depot/macperl/macos/lib/Mac/OSA/Simple.pm#2 edit
.... //depot/macperl/macos/macperl/Droplets/p2as.plx#2 edit
.... //depot/maint-5.6/macperl/macos/lib/Mac/OSA/Simple.pm#3 edit
.... //depot/maint-5.6/macperl/macos/macperl/Droplets/p2as.plx#2 edit

Differences ...

==== //depot/macperl/macos/lib/Mac/OSA/Simple.pm#2 (text) ====
Index: macperl/macos/lib/Mac/OSA/Simple.pm
--- macperl/macos/lib/Mac/OSA/Simple.pm#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/lib/Mac/OSA/Simple.pm	Tue May  7 20:48:53 2002
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS
-    %ScriptComponents);
+    $REVISION %ScriptComponents);
 use Mac::Components;
 use Mac::OSA;
 use Mac::AppleEvents;

==== //depot/macperl/macos/macperl/Droplets/p2as.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/p2as.plx
--- macperl/macos/macperl/Droplets/p2as.plx#1~16123~	Tue Apr 23 18:25:17 2002
+++ macperl/macos/macperl/Droplets/p2as.plx	Tue May  7 20:48:53 2002
@@ -9,6 +9,8 @@
 use Mac::Memory;
 use strict;
 
+sub fix_text (\$);
+
 die "Need at least one Perl script!\n" unless @ARGV;
 
 # select which type of compiled script you want ... hardcode this
@@ -54,14 +56,12 @@
 	$text = qq'tell application "MacPerl"\n	 activate\n	 Do Script "\n$script\n"\nend tell';
 }
 
-sub fix_text {
+sub fix_text (\$) {
 	my $text = shift;
 	
 	# more to do than just fix " marks and \ ?
 	$$text =~ s/\\/\\\\/g;
 	$$text =~ s/"/\\"/g;
-
-	1;
 }
 
 __END__

==== //depot/maint-5.6/macperl/macos/lib/Mac/OSA/Simple.pm#3 (text) ====
Index: macperl/macos/lib/Mac/OSA/Simple.pm
--- macperl/macos/lib/Mac/OSA/Simple.pm#2~14394~	Wed Jan 23 12:00:35 2002
+++ macperl/macos/lib/Mac/OSA/Simple.pm	Tue May  7 20:48:53 2002
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS
-    %ScriptComponents);
+    $REVISION %ScriptComponents);
 use Mac::Components;
 use Mac::OSA;
 use Mac::AppleEvents;
@@ -17,7 +17,7 @@
     load_osa_script %ScriptComponents);
 @EXPORT_OK = @Mac::OSA::EXPORT;
 %EXPORT_TAGS = (all => [@EXPORT, @EXPORT_OK]);
-$REVISION = '$Id: Simple.pm,v 1.2 2002/01/23 05:45:12 pudge Exp $';
+$REVISION = '$Id: Simple.pm,v 1.3 2002/05/08 03:59:30 pudge Exp $';
 $VERSION = '1.00';
 
 tie %ScriptComponents, 'Mac::OSA::Simple::Components';

==== //depot/maint-5.6/macperl/macos/macperl/Droplets/p2as.plx#2 (text) ====
Index: macperl/macos/macperl/Droplets/p2as.plx
--- macperl/macos/macperl/Droplets/p2as.plx#1~13122~	Mon Nov 19 19:20:17 2001
+++ macperl/macos/macperl/Droplets/p2as.plx	Tue May  7 20:48:53 2002
@@ -9,6 +9,8 @@
 use Mac::Memory;
 use strict;
 
+sub fix_text (\$);
+
 die "Need at least one Perl script!\n" unless @ARGV;
 
 # select which type of compiled script you want ... hardcode this
@@ -54,14 +56,12 @@
 	$text = qq'tell application "MacPerl"\n	 activate\n	 Do Script "\n$script\n"\nend tell';
 }
 
-sub fix_text {
+sub fix_text (\$) {
 	my $text = shift;
 	
 	# more to do than just fix " marks and \ ?
 	$$text =~ s/\\/\\\\/g;
 	$$text =~ s/"/\\"/g;
-
-	1;
 }
 
 __END__
End of Patch.