Change 14933 by pudge@pudge-mobile on 2002/03/01 17:32:52
Fix debugger to handle Mac OS psedofiles
Affected files ...
.... //depot/maint-5.6/macperl/lib/DB.pm#2 edit
.... //depot/maint-5.6/macperl/lib/perl5db.pl#2 edit
Differences ...
==== //depot/maint-5.6/macperl/lib/DB.pm#2 (text) ====
Index: perl/lib/DB.pm
--- perl/lib/DB.pm.~1~ Fri Mar 1 10:45:06 2002
+++ perl/lib/DB.pm Fri Mar 1 10:45:06 2002
@@ -93,6 +93,16 @@
$usrctxt = "package $DB::package;"; # this won't let them modify, alas
local(*DB::dbline) = "::_<$DB::filename";
+
+ # we need to check for pseudofiles on Mac OS (these are files
+ # not attached to a filename, but instead stored in Dev:Pseudo)
+ # since this is done late, $DB::filename will be "wrong" after
+ # skippkg
+ if ($^O eq 'MacOS' && $#DB::dbline < 0) {
+ $DB::filename = 'Dev:Pseudo';
+ *DB::dbline = "::_<$DB::filename";
+ }
+
my ($stop, $action);
if (($stop,$action) = split(/\0/,$DB::dbline{$DB::lineno})) {
if ($stop eq '1') {
==== //depot/maint-5.6/macperl/lib/perl5db.pl#2 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl.~1~ Fri Mar 1 10:45:06 2002
+++ perl/lib/perl5db.pl Fri Mar 1 10:45:06 2002
@@ -504,6 +504,14 @@
$usercontext = '($@, $!, $^E, $,, $/, $\, $^W) = @saved;' .
"package $package;"; # this won't let them modify, alas
local(*dbline) = $main::{'_<' . $filename};
+
+ # we need to check for pseudofiles on Mac OS (these are files
+ # not attached to a filename, but instead stored in Dev:Pseudo)
+ if ($^O eq 'MacOS' && $#dbline < 0) {
+ $filename_ini = $filename = 'Dev:Pseudo';
+ *dbline = $main::{'_<' . $filename};
+ }
+
$max = $#dbline;
if (($stop,$action) = split(/\0/,$dbline{$line})) {
if ($stop eq '1') {
End of Patch.
