diff options
| author | Perl 5 Porters <perl5-porters.nicoh.com> | 1996-01-02 03:30:49 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera.lafayette.edu> | 1996-01-02 03:30:49 +0000 |
| commit | 567d72c2df905d84d6219727bd9345d2314e6b6e (patch) | |
| tree | 1fb27cd0c802a3d6b4c50756e8bc4fb67a07b9e7 /lib/perl5db.pl | |
| parent | 8fc38fdaa1848793e9b9d4a3642e644f9d791ae0 (diff) | |
| download | perl-567d72c2df905d84d6219727bd9345d2314e6b6e.tar.gz | |
VMS-specific changes.
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index b5be230eed..15a2498324 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -225,7 +225,8 @@ command Execute as a perl statement in current package. $subname = "main::" . $subname unless $subname =~ /'|::/; $subname = "main" . $subname if substr($subname,0,1)eq "'"; $subname = "main" . $subname if substr($subname,0,2)eq "::"; - ($file,$subrange) = split(/:/,$sub{$subname}); + # VMS filespecs may (usually do) contain ':', so don't use split + ($file,$subrange) = $sub{$subname} =~ /(.*):(.*)/; if ($file ne $filename) { *dbline = "::_<$file"; $max = $#dbline; @@ -305,7 +306,8 @@ command Execute as a perl statement in current package. unless $subname =~ /'|::/; $subname = "main" . $subname if substr($subname,0,1) eq "'"; $subname = "main" . $subname if substr($subname,0,2) eq "::"; - ($filename,$i) = split(/:/, $sub{$subname}); + # VMS filespecs may (usually do) contain ':', so don't use split + ($filename,$i) = $sub{$subname} =~ /(.*):(.*)/; $i += 0; if ($i) { *dbline = "::_<$filename"; |