bugfixes

[chiark-utils.git] / backup / backuplib.pl

diff --git a/backup/backuplib.pl b/backup/backuplib.pl
index c2c7e811ff6ab82e8b2ead83769d681de42d3db7..279cbd6ec0e782c2355df1693d841aa2794bf497 100644 (file)
--- a/backup/backuplib.pl
+++ b/backup/backuplib.pl
@@ -141,7 +141,7 @@ sub readfsys ($) {
 # to be in $tf.
 sub parsefsys () {
     my ($dopts,$dopt);
-    if ($tf =~ m,^(/\S*)\s+(\w+)([,0-9a-z]+)$,) {
+    if ($tf =~ m#^(/\S*)\s+(\w+)([,0-9a-z]+)$#) {
         # Line of form '/file/system   dumptype[,options]'
        $atf= $1;
        $tm= $2;
@@ -150,7 +150,7 @@ sub parsefsys () {
        stat $atf or die "stat $atf: $!";
        -d _ or die "not a dir: $atf";
        $rstr= '';
-    } elsif ($tf =~ m,^(/\S*)\s+(\w+)([,0-9a-z]+)\s+(\w+)$,) {
+    } elsif ($tf =~ m#^(/\S*)\s+(\w+)([,0-9a-z]+)\s+(\w+)$#) {
         # Line of form '/file/system dumptype[,options] prefix'
         # (used for remote backups)
        $atf= $1;