diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 16:55:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-01 16:55:47 +0000 |
| commit | 14a089c51ea6b2fce5bd014173040a53a4fe588c (patch) | |
| tree | 33bb2fdd43ef489dff2f9cb7ac7c465f91756a9a /lib/AutoSplit.pm | |
| parent | 228515436ab73df2fc5bb6a3bf2cf5e72ce8bda7 (diff) | |
| download | perl-14a089c51ea6b2fce5bd014173040a53a4fe588c.tar.gz | |
more multiline match cleanups (from Greg Bacon)
p4raw-id: //depot/perl@5403
Diffstat (limited to 'lib/AutoSplit.pm')
| -rw-r--r-- | lib/AutoSplit.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index 41d5489531..ecdb039987 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -175,10 +175,10 @@ sub autosplit_lib_modules{ while(defined($_ = shift @modules)){ s#::#/#g; # incase specified as ABC::XYZ s|\\|/|g; # bug in ksh OS/2 - s#^lib/##; # incase specified as lib/*.pm + s#^lib/##s; # incase specified as lib/*.pm if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs - my ($dir,$name) = (/(.*])(.*)/); - $dir =~ s/.*lib[\.\]]//; + my ($dir,$name) = (/(.*])(.*)/s); + $dir =~ s/.*lib[\.\]]//s; $dir =~ s#[\.\]]#/#g; $_ = $dir . $name; } @@ -201,7 +201,7 @@ sub autosplit_file { # where to write output files $autodir ||= "lib/auto"; if ($Is_VMS) { - ($autodir = VMS::Filespec::unixpath($autodir)) =~ s|/$||; + ($autodir = VMS::Filespec::unixpath($autodir)) =~ s|/\z||; $filename = VMS::Filespec::unixify($filename); # may have dirs } unless (-d $autodir){ @@ -215,7 +215,7 @@ sub autosplit_file { } # allow just a package name to be used - $filename .= ".pm" unless ($filename =~ m/\.pm$/); + $filename .= ".pm" unless ($filename =~ m/\.pm\z/); open(IN, "<$filename") or die "AutoSplit: Can't open $filename: $!\n"; my($pm_mod_time) = (stat($filename))[9]; @@ -378,7 +378,7 @@ EOT for my $dir (keys %outdirs) { opendir(OUTDIR,$dir); foreach (sort readdir(OUTDIR)){ - next unless /\.al$/; + next unless /\.al\z/; my($file) = "$dir/$_"; $file = lc $file if $Is83 or $Is_VMS; next if $outfiles{$file}; |